Always use for in Perl modules.

1 files changed, 2 insertions, 2 deletions

diff --git a/configure b/configure
index 5d4520f31..2e19228ba 100755
--- a/configure
+++ b/configure
@@ -336,7 +336,7 @@ EOQ
 if (prompt_bool $interactive, $question, 0) {
 	my $original_base_dir = $config{BASE_DIR};
 	$config{BASE_DIR} = prompt_dir $interactive, 'In what directory do you wish to install the InspIRCd base?', $config{BASE_DIR};
-	foreach my $key (qw(BINARY_DIR CONFIG_DIR DATA_DIR LOG_DIR MANUAL_DIR MODULE_DIR SCRIPT_DIR)) {
+	for my $key (qw(BINARY_DIR CONFIG_DIR DATA_DIR LOG_DIR MANUAL_DIR MODULE_DIR SCRIPT_DIR)) {
 		$config{$key} =~ s/^\Q$original_base_dir\E/$config{BASE_DIR}/;
 	}
 	$config{BINARY_DIR} = prompt_dir $interactive, 'In what directory should the InspIRCd binary be placed?', $config{BINARY_DIR};
@@ -357,7 +357,7 @@ Currently, InspIRCd is configured to automatically enable all available extra mo
 Would you like to enable extra modules manually?
 EOQ
 if (prompt_bool $interactive, $question, 0) {
-	foreach my $extra (<$RealDir/src/modules/extra/m_*.cpp>) {
+	for my $extra (<$RealDir/src/modules/extra/m_*.cpp>) {
 		my $module_name = module_shrink $extra;
 		if (prompt_bool $interactive, "Would you like to enable the <|BOLD $module_name|> module?", 0) {
 			enable_extras $module_name;