Re: debugger 'R'estart and open database connections

[perl5.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;
            }