| Subject: | Taintmode failures - PATCH |
Autrijus,
Thanks for the great module! It's going to make deploying my applications much easier. As I was using it this evening, I ran into an issue with taint checks. Line 528 was returning the following error:
Insecure dependency in open while running with -T switch at
/usr/local/lib/perl5/site_perl/5.8.6/PAR.pm line 528.
I have attached a patch that eliminates this problem. Hope you have a chance to apply it in time for the next release.
Thanks,
William
--- /usr/local/lib/perl5/site_perl/5.8.6/PAR.pm~ 2005-01-07 00:15:37.000000000 -0500
+++ /usr/local/lib/perl5/site_perl/5.8.6/PAR.pm 2005-01-07 00:15:57.000000000 -0500
@@ -525,7 +525,7 @@
return ($fh, 0, $filename);
}
- ($filename) = $filename =~ /^([\x20-\xff]+)$
+ ($filename) = $filename =~ /^([\x20-\xff]+)$/;
open my $fh, '+>', $filename or die $!;
binmode($fh);
return ($fh, 1, $filename);