r52366 - in /trunk/libstring-escape-perl/debian: changelog patches/backslash.patch

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Tue Feb  9 00:20:42 2010
New Revision: 52366

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52366
Log:
Update patch because it no longer applied properly

Modified:
    trunk/libstring-escape-perl/debian/changelog
    trunk/libstring-escape-perl/debian/patches/backslash.patch

Modified: trunk/libstring-escape-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-escape-perl/debian/changelog?rev=52366&op=diff
==============================================================================
--- trunk/libstring-escape-perl/debian/changelog (original)
+++ trunk/libstring-escape-perl/debian/changelog Tue Feb  9 00:20:42 2010
@@ -6,6 +6,7 @@
   * Add myself to Uploaders and Copyright
   * Standards-Version 3.8.4 (drop perl version dep)
   * Rewrite control description
+  * Update patch because it no longer applied properly
 
   [ gregor herrmann ]
   * Add debian/README.source to document quilt usage, as required by

Modified: trunk/libstring-escape-perl/debian/patches/backslash.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libstring-escape-perl/debian/patches/backslash.patch?rev=52366&op=diff
==============================================================================
--- trunk/libstring-escape-perl/debian/patches/backslash.patch (original)
+++ trunk/libstring-escape-perl/debian/patches/backslash.patch Tue Feb  9 00:20:42 2010
@@ -1,11 +1,16 @@
+Description: escape a double quote in a regexp
+Author: gregor herrmann <gregoa at debian.org>
+Reviewed-by: Jonathan Yu <jawnsy at cpan.org>
+Origin: vendor
+Forwarded: no
 --- a/Escape.pm
 +++ b/Escape.pm
-@@ -196,7 +196,7 @@ sub string2list {
-     } elsif ($text =~ s/\A\s+//m){
-       push(@words, unprintable($word));
-       $word = '';
--    } elsif ($text =~ s/\A"//) {
-+    } elsif ($text =~ s/\A\"//) {
-       carp "string2list found an unmatched quote at '$text'"; 
-       return;
-     } else {
+@@ -699,7 +699,7 @@
+ 		} elsif ($text =~ s/\A\s+//m){
+ 			push(@words, unprintable($word));
+ 			$word = '';
+-		} elsif ($text =~ s/\A"//) {
++		} elsif ($text =~ s/\A\"//) {
+ 			carp "string2list found an unmatched quote at '$text'";
+ 			return;
+ 		} else {