That was it. so using the result of a regex test gets around it.. That's a wise practice.
I new perl was being mean just for fun. that *so* not perl
Thank you so much.
Angie
Okay Angie,
try this one, taken from the docs. It works because I'm setting $PATH to an
absolute value instead of updating it. You may want to play with the regex to
improve it, but this basic test worked.
#!/usr/bin/perl -Tw
my $PATH=$ENV{'MYPATH'}; print "PATH=$PATH\n"; if ($PATH=~/^([-\/\w.]+)$/) { # check for valid chars only $PATH=$1; # explicity set $PATH to (non-tainted) value } my $newdir="$PATH/newdir"; mkdir $newdir || die "can't create directory: $!\n";
Gary
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
