← Back to branch summary

~ubuntu-branches/ubuntu/raring/awstats/raring-proposed

« back to all changes in this revision

Viewing changes to debian/patches/1018_perl5-14.patch

  • Committer: Package Import Robot
  • Author(s): Sergey B Kirpichev
  • Date: 2011-12-14 22:36:06 UTC
  • Revision ID: package-import@ubuntu.com-20111214223606-3kqmza00siq630ar
Tags: 7.0~dfsg-4
http://bugs.debian.org/650492
http://bugs.debian.org/652070
* Apply some compatibility fixes for perl 5.14: introduce 1018_perl5-
  14.patch (Closes: #650492, #652070, thanks to Atsuhito Kohda)
* Fixed Bug-Debian info for 016_downloads_list_page.patch

Show diffs side-by-side

added added

removed removed

Lines of Context:
debian/patches/1018_perl5-14.patch
 
1
Description: Compatibility patch for perl5.14
 
2
Origin: http://sourceforge.net/tracker/index.php?func=detail&aid=3311848&group_id=13764&atid=113764
 
3
Debian-Bug: http://bugs.debian.org/650492
 
4
 
 
5
---
 
6
 wwwroot/cgi-bin/awstats.pl |    4 ++--
 
7
 1 file changed, 2 insertions(+), 2 deletions(-)
 
8
 
 
9
--- a/wwwroot/cgi-bin/awstats.pl
 
10
+++ b/wwwroot/cgi-bin/awstats.pl
 
11
@@ -1338,7 +1338,7 @@
 
12
 sub OptimizeArray {
 
13
        my $array = shift;
 
14
        my @arrayunreg = map {
 
15
-               if (/\(\?[-\w]*:(.*)\)/) { $1 }
 
16
+               if (/\(\?[-^\w]*:(.*)\)/) { $1 }
 
17
        } @$array;
 
18
        my $notcasesensitive = shift;
 
19
        my $searchlist       = 0;
 
20
@@ -7793,7 +7793,7 @@
 
21
 # Return:              standardregex
 
22
 #------------------------------------------------------------------------------
 
23
 sub UnCompileRegex {
 
24
-       shift =~ /\(\?[-\w]*:(.*)\)/;
 
25
+       shift =~ /\(\?[-^\w]*:(.*)\)/;
 
26
        return $1;
 
27
 }
 
28