r67410 - in /branches/lenny/libcgi-pm-perl/debian: changelog patches/CVE-2010-2761_CVE-2010-4410_CVE-2010-4411.patch

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Fri Jan 14 22:23:19 2011
New Revision: 67410

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=67410
Log:
commit niko's new 3.38-2lenny3 version to svn (cf. #606370)

Modified:
    branches/lenny/libcgi-pm-perl/debian/changelog
    branches/lenny/libcgi-pm-perl/debian/patches/CVE-2010-2761_CVE-2010-4410_CVE-2010-4411.patch

Modified: branches/lenny/libcgi-pm-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/lenny/libcgi-pm-perl/debian/changelog?rev=67410&op=diff
==============================================================================
--- branches/lenny/libcgi-pm-perl/debian/changelog (original)
+++ branches/lenny/libcgi-pm-perl/debian/changelog Fri Jan 14 22:23:19 2011
@@ -1,3 +1,11 @@
+libcgi-pm-perl (3.38-2lenny3) stable; urgency=low
+
+  * Slightly amend the previous patch:
+    + drop an incorrect documentation change
+    + drop an unnecessary regexp modifier change
+
+ -- Niko Tyni <ntyni at debian.org>  Fri, 14 Jan 2011 13:27:36 +0200
+
 libcgi-pm-perl (3.38-2lenny2) stable; urgency=low
 
   * [SECURITY] Add a patch with the backported fixes for CVE-2010-2761,

Modified: branches/lenny/libcgi-pm-perl/debian/patches/CVE-2010-2761_CVE-2010-4410_CVE-2010-4411.patch
URL: http://svn.debian.org/wsvn/pkg-perl/branches/lenny/libcgi-pm-perl/debian/patches/CVE-2010-2761_CVE-2010-4410_CVE-2010-4411.patch?rev=67410&op=diff
==============================================================================
--- branches/lenny/libcgi-pm-perl/debian/patches/CVE-2010-2761_CVE-2010-4410_CVE-2010-4411.patch (original)
+++ branches/lenny/libcgi-pm-perl/debian/patches/CVE-2010-2761_CVE-2010-4410_CVE-2010-4411.patch Fri Jan 14 22:23:19 2011
@@ -46,34 +46,6 @@
      $nph     ||= $NPH;
  
      $type ||= 'text/html' unless defined($type);
-@@ -1482,7 +1506,7 @@
-     # need to fix it up a little.
-     foreach (@other) {
-         # Don't use \s because of perl bug 21951
--        next unless my($header,$value) = /([^ \r\n\t=]+)=\"?(.+?)\"?$/;
-+        next unless my($header,$value) = /([^ \r\n\t=]+)=\"?(.+?)\"?$/s;
-         ($_ = $header) =~ s/^(\w)(.*)/"\u$1\L$2" . ': '.$self->unescapeHTML($value)/e;
-     }
- 
-@@ -5101,6 +5125,18 @@
- 
-   P3P: policyref="/w3c/p3p.xml" cp="CAO DSP LAW CURa"
- 
-+Note that if a header value contains a carriage return, a leading space will be
-+added to each new line that doesn't already have one as specified by RFC2616
-+section 4.2.  For example:
-+
-+    print header( -ingredients => "ham\neggs\nbacon" );
-+
-+will generate
-+
-+    Ingredients: ham
-+     eggs
-+     bacon
-+
- =head2 GENERATING A REDIRECTION HEADER
- 
-    print redirect('http://somewhere.else/in/movie/land');
 --- /dev/null
 +++ b/t/headers.t
 @@ -0,0 +1,47 @@