File/Find/t/find.t tests 1 and 2 (was Re: [perl #17061] no strict 'garbage')

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

diff --git a/lib/shellwords.pl b/lib/shellwords.pl
index 1c45a5a..ca7dc7e 100644 (file)
--- a/lib/shellwords.pl
+++ b/lib/shellwords.pl
@@ -17,6 +17,7 @@ sub shellwords {
     while ($_ ne '') {
        $field = '';
        for (;;) {
+           use re 'taint'; # leave strings tainted
            if (s/^"(([^"\\]|\\.)*)"//) {
                ($snippet = $1) =~ s#\\(.)#$1#g;
            }