Package: awstats
Version: 7.1~dfsg-1
Severity: important
Tags: upstream patch
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA256
Hi
The 7.1 release has problems with Perl 5.14, what makes it behave quite
oddly with it (in my case, it did not filter logs).
This is already fixed upstream in 7.1.1 or attached patch fixes it.
- --
Michal Čihař | http://cihar.com | http://blog.cihar.com
- -- System Information:
Debian Release: 7.0
APT prefers unstable
APT policy: (500, 'unstable'), (500, 'stable'), (1, 'experimental')
Architecture: amd64 (x86_64)
Kernel: Linux 3.4.28-2.20-desktop (SMP w/2 CPU cores; PREEMPT)
Locale: LANG=cs_CZ.UTF-8, LC_CTYPE=cs_CZ.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.12 (GNU/Linux)
iQIcBAEBCAAGBQJRSs68AAoJEGo39bHX+xdNVyIQANDnarmQMDVGIfZzqphOZDof
95s2eU4d7Xwrqqmh3brEa49KWGA0yW/4Ly6RLY5GkUYtTWAKGPhmk5xEA2FD2UOx
lfox0wbmBpyjKS+A9OOD3AiafhSpARngAFU+vhhJuSHJezvI1wkaAMgPnt1jwkOs
zk0UIvavuWCteVjPGPp/YQQV0AU/dbEPWp+t7GrWEghRVZT8DAJ1TIx6vIWD0TjE
VIXKWcV0Ud+jlIKGcuUeU0klQuebIfM9nNVE2yuMMMXAb+gSPrgxfOO0DtmbZxhA
tJvZSrqbfOe+4MJ+PTYOi5KUM3hLJC+3GgXIAlkiBWkeEc3SKQnGjUgH39EZSNUX
bRS7iZxtpDZDZtW0Hx8MxgP+VWcl0Ck1BNOhyakZMOvdnVh4OqVJppcC39uwuaWD
tOu7TuliEpXJfT03ztQazppvylWrdkGfL2wQyOIVjKISNBXrVDIr69YLH6yspaSp
y4STnbqCwVL3447LC3/k15Oe5wKB8LtENsLawG9pvMscSl2q4TeE4QZTnkYQaA6p
lCYL0gXLkE8HfM7PYFko0lJ1GdRA1iEMD5eVr50Xb3FVaJ6CxPchgtZxaADvZy0U
f6dMBBmYxTCVon2hO0rgpOJCpW8Cg9gostLPrhBCjEUcaE1hxYnuGglOjUyI5Fnl
bG3126rMW2qkHioPYRX9
=B5dY
-----END PGP SIGNATURE-----
diff -ruNp awstats-7.1/wwwroot/cgi-bin/awstats.pl awstats-7.1.1/wwwroot/cgi-bin/awstats.pl
--- awstats-7.1/wwwroot/cgi-bin/awstats.pl 2012-12-19 18:30:47.000000000 +0100
+++ awstats-7.1.1/wwwroot/cgi-bin/awstats.pl 2013-03-08 21:16:52.000000000 +0100
@@ -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;
}
