Compatibility with Perl 5.22

diff --git a/docs/awstats_changelog.txt b/docs/awstats_changelog.txt
index 1fcca7f701da41face83e4f2acf6675127296265..1b5e3428d11388fefd0d8fed98021fcbce30e7dc 100644 (file)
--- a/docs/awstats_changelog.txt
+++ b/docs/awstats_changelog.txt
@@ -8,6 +8,7 @@ New features:
   option nboflastupdatelookuptosave on command line.
 - #199 Added geoip6 plugin with support for IPv4 AND IPv6.
 - Work with Amazon AWS log files (using %time5 tag). 
+- Compatibility with Perl 5.22
 
 Fixes:
 - Fixes permission on some .pl scripts.

diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index c9dcee9ad9173ffa2fcb981909fa85e3e4558455..eb14fc046f092ef7c1b030f4a64114cdf73edfb5 100755 (executable)
--- a/wwwroot/cgi-bin/awstats.pl
+++ b/wwwroot/cgi-bin/awstats.pl
@@ -9040,12 +9040,12 @@ sub DefinePerlParsingFormat {
                $LogFormatString =~ s/%>s/%code/g;
                $LogFormatString =~ s/%b(\s)/%bytesd$1/g;
                $LogFormatString =~ s/%b$/%bytesd/g;
-               $LogFormatString =~ s/\"%{Referer}i\"/%refererquot/g;
-               $LogFormatString =~ s/\"%{User-Agent}i\"/%uaquot/g;
-               $LogFormatString =~ s/%{mod_gzip_input_size}n/%gzipin/g;
-               $LogFormatString =~ s/%{mod_gzip_output_size}n/%gzipout/g;
-               $LogFormatString =~ s/%{mod_gzip_compression_ratio}n/%gzipratio/g;
-               $LogFormatString =~ s/\(%{ratio}n\)/%deflateratio/g;
+               $LogFormatString =~ s/\"%\{Referer}i\"/%refererquot/g;
+               $LogFormatString =~ s/\"%\{User-Agent}i\"/%uaquot/g;
+               $LogFormatString =~ s/%\{mod_gzip_input_size}n/%gzipin/g;
+               $LogFormatString =~ s/%\{mod_gzip_output_size}n/%gzipout/g;
+               $LogFormatString =~ s/%\{mod_gzip_compression_ratio}n/%gzipratio/g;
+               $LogFormatString =~ s/\(%\{ratio}n\)/%deflateratio/g;
 
                # Replacement for a IIS and ISA format string
                $LogFormatString =~ s/cs-uri-query/%query/g;    # Must be before cs-uri