File: backslash.patch

package info (click to toggle)
libstring-escape-perl 2002.001-8
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 76 kB
  • ctags: 23
  • sloc: perl: 187; makefile: 45
file content (11 lines) | stat: -rw-r--r-- 355 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
--- libstring-escape-perl.orig/Escape.pm
+++ libstring-escape-perl/Escape.pm
@@ -196,7 +196,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 {