Always use for in Perl modules.

1 files changed, 2 insertions, 2 deletions

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}) {