From: Sadie Powell <sadie@witchery.services>
Date: Sun, 28 Feb 2021 18:46:56 +0000 (+0000)
Subject: Fix running configure on systems with old versions of Perl.
X-Git-Url: https://git.netwichtig.de/gitweb/?a=commitdiff_plain;h=0144c2363876a220af2148c43ba96ca1a1bd7a0e;p=user%2Fhenk%2Fcode%2Finspircd.git

Fix running configure on systems with old versions of Perl.

Closes #1852.
---

diff --git a/make/configure.pm b/make/configure.pm
index 223f4e58a..656c98097 100644
--- a/make/configure.pm
+++ b/make/configure.pm
@@ -237,7 +237,8 @@ sub module_expand($) {
 
 sub module_shrink($) {
 	my $module = basename shift;
-	return $module =~ s/(?:^m_|\.cpp$)//gr;
+	$module =~ s/(?:^m_|\.cpp$)//g;
+	return $module;
 }
 
 sub write_configure_cache(%) {