r920 - packages/libstring-escape-perl/trunk

[Gunnar Wolf]

Author: gwolf
Date: 2005-04-13 00:53:19 +0000 (Wed, 13 Apr 2005)
New Revision: 920

Modified:
   packages/libstring-escape-perl/trunk/Escape.pm
Log:
Quoting a quote, so it won't break emacs' syntax coloring


Modified: packages/libstring-escape-perl/trunk/Escape.pm
===================================================================
--- packages/libstring-escape-perl/trunk/Escape.pm	2005-04-13 00:50:16 UTC (rev 919)
+++ packages/libstring-escape-perl/trunk/Escape.pm	2005-04-13 00:53:19 UTC (rev 920)
@@ -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 {