From 2fceea41e8eefe0e109d7b7de445589bfd2a49ef Mon Sep 17 00:00:00 2001
From: Sadie Powell <sadie@witchery.services>
Date: Fri, 29 Jan 2021 13:46:37 +0000
Subject: Always use for in Perl modules.

---
 make/template/inspircd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'make/template')

diff --git a/make/template/inspircd b/make/template/inspircd
index 4b316e0e0..70072df60 100644
--- a/make/template/inspircd
+++ b/make/template/inspircd
@@ -149,8 +149,8 @@ sub cmd_help()
 	my @cmds = grep /^cmd_/, @subs;
 	my @devs = grep /^dev_/, @subs;
 	local $_;
-	$_ =~ s/^(cmd|dev)_// foreach (@cmds, @devs);
-	$_ =~ s/_/-/g foreach (@cmds, @devs);
+	$_ =~ s/^(cmd|dev)_// for (@cmds, @devs);
+	$_ =~ s/_/-/g for (@cmds, @devs);
 	print STDERR "Usage: ./inspircd (" . join("|", @cmds) . ")\n";
 	print STDERR "Developer arguments: (" . join("|", @devs) . ")\n";
 	exit GENERIC_EXIT_SUCCESS;
-- 
cgit v1.2.3