diff options
| author | beech <beech@FreeBSD.org> | 2011-07-15 00:42:10 +0800 |
|---|---|---|
| committer | beech <beech@FreeBSD.org> | 2011-07-15 00:42:10 +0800 |
| commit | 5e8ee91283f9476973782fc5011d8a0179af2364 (patch) | |
| tree | 9666a5705347fc8eb7eaa3f1e97796f853238136 /www/awstats/files | |
| parent | 34874eb5d43295a95ff5e5e6f9552c035de82a6f (diff) | |
| download | freebsd-ports-gnome-5e8ee91283f9476973782fc5011d8a0179af2364.tar.gz freebsd-ports-gnome-5e8ee91283f9476973782fc5011d8a0179af2364.tar.zst freebsd-ports-gnome-5e8ee91283f9476973782fc5011d8a0179af2364.zip | |
- Perl 5.14 changes format of compiled regexps.
This update amends the pattern awstats uses to parse
compiled regexps to cater for the new 5.14 format
PR: ports/158837
Submitted by: Jase Thew <freebsd@beardz.net>
Approved by: Alex Samorukov <samm@os2.kiev.ua> (maintainer)
Diffstat (limited to 'www/awstats/files')
| -rw-r--r-- | www/awstats/files/patch-wwwroot-cgi-bin-awstats.pl | 26 |
1 files changed, 23 insertions, 3 deletions
diff --git a/www/awstats/files/patch-wwwroot-cgi-bin-awstats.pl b/www/awstats/files/patch-wwwroot-cgi-bin-awstats.pl index b9c1f82c8239..80d82b0878ca 100644 --- a/www/awstats/files/patch-wwwroot-cgi-bin-awstats.pl +++ b/www/awstats/files/patch-wwwroot-cgi-bin-awstats.pl @@ -1,6 +1,17 @@ ---- wwwroot/cgi-bin/awstats.pl.orig 2009-10-10 08:36:38.000000000 -0400 -+++ wwwroot/cgi-bin/awstats.pl 2009-10-28 21:33:22.000000000 -0400 -@@ -3040,7 +3040,7 @@ +--- wwwroot/cgi-bin/awstats.pl.orig 2011-07-06 08:11:37.000000000 +0100 ++++ wwwroot/cgi-bin/awstats.pl 2011-07-06 08:16:32.000000000 +0100 +@@ -1353,9 +1353,7 @@ + #------------------------------------------------------------------------------ + sub OptimizeArray { + my $array = shift; +- my @arrayunreg = map { +- if (/\(\?[-\w]*:(.*)\)/) { $1 } +- } @$array; ++ my @arrayunreg = map { UnCompileRegex($_) } @$array; + my $notcasesensitive = shift; + my $searchlist = 0; + if ($Debug) { +@@ -3049,7 +3047,7 @@ # Debian package : "/usr/share/awstats/plugins" my @PossiblePluginsDir = ( "$DIR/plugins", @@ -9,3 +20,12 @@ "/usr/share/awstats/plugins" ); my %DirAddedInINC = (); +@@ -7809,7 +7807,7 @@ + # Return: standardregex + #------------------------------------------------------------------------------ + sub UnCompileRegex { +- shift =~ /\(\?[-\w]*:(.*)\)/; ++ shift =~ /\(\?[-^\w]*:(.*)\)/; + return $1; + } + |