Fix: Restore fix for Perl 5.14+

diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index 921a44f758a3cb00bfbc8834506fc847ccb8f573..feb7a813a4849b00eb467f2fe6b5af3115fdfcd1 100644 (file)
--- 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;
 }