Always use for in Perl modules.

[user/henk/code/inspircd.git] / tools / test-build

diff --git a/tools/test-build b/tools/test-build
index 47df0c8f0aa83355b2b6d94141f6d29b27b1e443..9312940b615198810d0197f0b9abf3e2f9f827c0 100755 (executable)
--- a/tools/test-build
+++ b/tools/test-build
@@ -36,7 +36,7 @@ execute 'git', 'clean', '-dfx';
 
 my $root = dirname $RealDir;
 my @compilers = $#ARGV >= 0 ? @ARGV : qw(g++ clang++ icpc);
-foreach my $compiler (@compilers) {
+for my $compiler (@compilers) {
        if (system "$compiler -v > /dev/null 2>&1") {
                say "Skipping $compiler as it is not installed on this system!";
                next;
@@ -46,7 +46,7 @@ foreach my $compiler (@compilers) {
        push @socketengines, 'epoll' if test_header $compiler, 'sys/epoll.h';
        push @socketengines, 'kqueue' if test_file $compiler, 'kqueue.cpp';
        push @socketengines, 'poll' if test_header $compiler, 'poll.h';
-       foreach my $socketengine (@socketengines) {
+       for my $socketengine (@socketengines) {
                say "Attempting to build using the $compiler compiler and the $socketengine socket engine...";
                my @configure_flags;
                if (defined $ENV{TEST_BUILD_MODULES}) {