Stay within known facts: what platforms the skippage helps,

[p5sagit/p5-mst-13.2.git] / lib / shellwords.pl

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