r52366 - in /trunk/libstring-escape-perl/debian: changelog patches/backslash.patch
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue Feb 9 00:20:53 UTC 2010
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 {
More information about the Pkg-perl-cvs-commits
mailing list