| Subject: | Taint mode causes failures from File::Find |
Doesn't work in taint (-T) mode due to File::Find, which will chdir into
a tainted path. There's a File::Find option that deals with this, see
attached patch.
| Subject: | File-Scan-ClamAV.patch |
--- /usr/lib/perl5/site_perl/5.8.8/File/Scan/ClamAV.pm~ 2009-02-05 22:25:28.000000000 -0500
+++ /usr/lib/perl5/site_perl/5.8.8/File/Scan/ClamAV.pm 2009-09-20 08:52:52.000000000 -0400
@@ -303,11 +303,11 @@
# Directories
for my $dir (@_){
next unless -d $dir;
- find(sub {
+ find({untaint =>1, wanted=> sub {
if(-f $File::Find::name) {
push @files, $File::Find::name;
}
- }, $dir);
+ }}, $dir);
}
if(!@files) {