--- ParseWords.pm.orig  Tue May 21 12:51:06 2002
+++ ParseWords.pm       Tue May 21 12:51:52 2002
@@ -50,6 +50,7 @@
 sub parse_line {
        # We will be testing undef strings
        no warnings;
+       use re 'taint'; # if it's tainted, leave it as such

     my($delimiter, $keep, $line) = @_;
     my($quote, $quoted, $unquoted, $delim, $word, @pieces);