From 2fceea41e8eefe0e109d7b7de445589bfd2a49ef Mon Sep 17 00:00:00 2001 From: Sadie Powell Date: Fri, 29 Jan 2021 13:46:37 +0000 Subject: Always use for in Perl modules. --- tools/test-build | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tools/test-build') diff --git a/tools/test-build b/tools/test-build index 47df0c8f0..9312940b6 100755 --- 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}) { -- cgit v1.2.3