Until upstream has a fix for this, the following seems to work:
--- /usr/share/MailScanner//MailScanner/Message.pm.orig 2009-07-11
10:33:45.000000000 -0400
+++ /usr/share/MailScanner//MailScanner/Message.pm 2009-07-11
13:19:25.000000000 -0400
@@ -2404,7 +2404,7 @@
# Set the owner and group on all the extracted files
- chown $workarea->{uid}, $workarea->{gid}, grep { -f } glob
"$explodeinto/* $explodeinto/.*"
+ chown $workarea->{uid}, $workarea->{gid}, map { m/(.*)/ } grep { -f }
glob "$explodeinto/* $explodeinto/.*"
if $workarea->{changeowner};
}
--- /usr/share/MailScanner//MailScanner/SweepOther.pm.orig 2009-07-11
10:34:43.000000000 -0400
+++ /usr/share/MailScanner//MailScanner/SweepOther.pm 2009-07-11
10:35:06.000000000 -0400
@@ -371,7 +371,7 @@
@filelist = <*/*>;
exit 0 unless @filelist;
#exec "$filecommand */*"; # Shouldn't do this like this!
- exec(split(/ +/, $filecommand), @filelist);
+ exec(map { m/(.*)/ } split(/ +/, $filecommand), @filelist);
MailScanner::Log::WarnLog("Can't run file command " .
"(\"$filecommand\"): $!");
exit 1;
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
