--- 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 {