From: eldy <>
Date: Fri, 8 Mar 2013 20:14:17 +0000 (+0000)
Subject: Fix: Restore fix for Perl 5.14+
X-Git-Tag: AWSTATS_7_2~14
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=83e7db10ced685addf40a90acfe0deec605efbd1;p=thirdparty%2FAWStats.git

Fix: Restore fix for Perl 5.14+
---

diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index 921a44f7..feb7a813 100644
--- a/wwwroot/cgi-bin/awstats.pl
+++ b/wwwroot/cgi-bin/awstats.pl
@@ -7817,7 +7817,8 @@ sub DecodeEncodedString {
 # Return:		standardregex
 #------------------------------------------------------------------------------
 sub UnCompileRegex {
-	shift =~ /\(\?[-\w]*:(.*)\)/;
+	shift =~ /\(\?[-^\w]*:(.*)\)/;         # Works with all perl
+	# shift =~ /\(\?[-\w]*:(.*)\)/;        < perl 5.14
 	return $1;
 }