problem with latest beta

[Thomas Lohman]

Actually, sorry, I didn't actually include the real offending line - 
which is 3342.

   #print STDERR "Unpacking $explodeinto/$olename\n";
   eval {
     #return 1 unless $ole = OLE::Storage_Lite::PPS->new(1,2,3,4,5,6,7,8,
     #                                                   9,10,11,12,13);
     my $tmpnam = "$explodeinto/$olename";
-->    $tmpnam =~ s/^(.*)$/;

It looks like it's missing a '/' right before the ';' - adding that and 
the compilation errors go away.

cheers,


--tom

> Scalar found where operator expected at 
> /usr/local/MailScanner/lib/MailScanner/Message.pm line 3370, near "$size 
> = -s "$explodeinto/$inname"
>   (Might be a runaway multi-line // string starting on line 3342)