Hi,
The code below works fine if run like:
using PERL version 5.00503
----
#!/usr/bin/perl -w
but with
#!/usr/bin/perl -wT
I am still getting error: Insecure dependency in glob while running with -T
switch
Can I turn off 'tainting' for this block
{
# turn off taint for this block only
opendir(DR,"./");
my @filesToRemove = grep {$_ =~ /^(\w[\w.-]*)/} readdir DR;
closedir DR;
foreach my $fr (@filesToRemove) {
print "Deleting $fr<br>\n";
unlink($fr) or die "Couldn't Delete $fr $!";
}
}
Is there anyway around this, I can't upgrade the version of PERL it out my
hands.
Thx,
Dave
(kora musician / audiophile / webmaster @ www.coraconnection.com / Ft. Worth,
TX, USA)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
