X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fshellwords.pl;h=1c45a5a0903579fb0f58870242ce95d933e05065;hb=c9abbd5d6e768b3d2c9536a3c39ca67438643c9d;hp=5d593daa50a24412aaf9fcbaa2e9d632f55362f7;hpb=2b69d0c297460bce3a8d8eefe2bd0de0a6451872;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/shellwords.pl b/lib/shellwords.pl
index 5d593da..1c45a5a 100644
--- a/lib/shellwords.pl
+++ b/lib/shellwords.pl
@@ -17,13 +17,13 @@ sub shellwords {
     while ($_ ne '') {
 	$field = '';
 	for (;;) {
-	    if (s/^"(([^"\\]|\\[\\"])*)"//) {
+	    if (s/^"(([^"\\]|\\.)*)"//) {
 		($snippet = $1) =~ s#\\(.)#$1#g;
 	    }
 	    elsif (/^"/) {
 		die "Unmatched double quote: $_\n";
 	    }
-	    elsif (s/^'(([^'\\]|\\[\\'])*)'//) {
+	    elsif (s/^'(([^'\\]|\\.)*)'//) {
 		($snippet = $1) =~ s#\\(.)#$1#g;
 	    }
 	    elsif (/^'/) {