blob: 173561c8c6d15c05c42a8b1a9efa407693d1e3b7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Description: escape a double quote in a regexp
Author: gregor herrmann <gregoa@debian.org>
Reviewed-by: Jonathan Yu <jawnsy@cpan.org>
Origin: vendor
Forwarded: no
--- a/Escape.pm
+++ b/Escape.pm
@@ -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 {
|