Perl Issues THANKS

[Julian Field]

<x-flowed>
It's a Perl issue.

At 14:18 08/10/2004, you wrote:
>That did the trick...  Was this a perl issue?  Is there something I should
>keep in mind or notes on should I need to make changes to MS or SA in the
>future?
>
>-Brendan
>
>-----Original Message-----
>From: MailScanner mailing list [mailto:MAILSCANNER at JISCMAIL.AC.UK] On Behalf
>Of Julian Field
>Sent: Friday, October 08, 2004 8:05 AM
>To: MAILSCANNER at JISCMAIL.AC.UK
>Subject: Re: Perl Issues
>
>At 13:01 08/10/2004, you wrote:
> >Line 362 is:
> >return 1 if ($name =~ /((?:[\[\]\\\/\<\>\|\?\*\:\"]|\p{IsCntrl}))/); ###
>path
>
>return 1 if ($name =~ /((?:[\[\]\\\/\<\>\|\?\*\:\"\x00-\x1f]))/); ### path
>
>should do the trick.
>
> >or special characters
> >
> >
> >This is the whole chunk of the Filer.pm code surrounding line 362
> >
> >sub evil_filename {
> >     my ($self, $name) = @_;
> >
> >     $self->debug("is this evil? '$name'");
> >
> >     return 1 if (!defined($name) or ($name eq ''));   ### empty
> >     return 1 if ($name =~ m{(^\s)|(\s+\Z)});  ### leading/trailing
>whitespace
> >     return 1 if ($name =~ m{^\.+\Z});         ### dots
> >     return 1 if ($name =~ /((?:[\[\]\\\/\<\>\|\?\*\:\"]|\p{IsCntrl}))/);
> > ### path or special characters
> >     return 1 if ($self->{MPF_MaxName} and
> >                  (length($name) > $self->{MPF_MaxName}));
> >
> >     $self->debug("it's ok");
> >     0;
> >}
> >
> >
> >Is it possible that I missed grabbing some perl modules?  I thought that
> >the port installation took care of getting what it needed provided that
> >perl was installed but it's been a while since my last install of MS.
> >
> >-Brendan
> >
> >-----Original Message-----
> >From: MailScanner mailing list [mailto:MAILSCANNER at JISCMAIL.AC.UK] On
> >Behalf Of Julian Field
> >Sent: Friday, October 08, 2004 3:04 AM
> >To: MAILSCANNER at JISCMAIL.AC.UK
> >Subject: Re: Perl Issues
> >
> >It's a goodie this one.
> >
> >In /usr/local/lib/perl5/site_perl/5.6.1/MIME/Parser/Filer.pm, at line 362,
> >there is a statement given in the regular expression which your version of
> >Perl does not support.
> >If you post that line here, I will mail you the fixed version of it. I
> >can't find an example of this at the moment.
> >
> >At 23:23 07/10/2004, you wrote:
> > >I'm attempting a fresh install of mailscanner from FreeBSD Port to a
>FreeBSD
> > >4.7 machine.
> > >
> > >(Perl 5.6.1, SA 2.64, MS 4.33.3)
> > >
> > >I've done this install without issue on other similar FreeBSD machines
>but
> > >when I attempt to start mailscanner using the script in ../rc.d/ I get
>the
> > >following errors.  Any help is greatly appreciated.
> > >
> > >Can't locate object method "SWASHNEW" via package "utf8" (perhaps you
>forgot
> > >to load "utf8"?) at
> > >/usr/local/lib/perl5/site_perl/5.6.1/MIME/Parser/Filer.pm line 362.
> > >Compilation failed in require at
> > >/usr/local/lib/perl5/site_perl/5.6.1/MIME/Parser.pm line 152.
> > >BEGIN failed--compilation aborted at
> > >/usr/local/lib/perl5/site_perl/5.6.1/MIME/Parser.pm line 152.
> > >Compilation failed in require at
> > >/usr/local/lib/MailScanner/MailScanner/MCPMessage.pm line 40.
> > >BEGIN failed--compilation aborted at
> > >/usr/local/lib/MailScanner/MailScanner/MCPMessage.pm line 40.
> > >Compilation failed in require at
>/usr/local/libexec/MailScanner/MailScanner
> > >line 51.
> > >BEGIN failed--compilation aborted at
> > >/usr/local/libexec/MailScanner/MailScanner line 51.
> > >

--
Julian Field
www.MailScanner.info
MailScanner thanks transtec Computers for their support
Buy the MailScanner book at www.MailScanner.info/store

PGP footprint: EE81 D763 3DB0 0BFD E1DC 7222 11F6 5947 1415 B654

------------------------ MailScanner list ------------------------
To unsubscribe, email jiscmail at jiscmail.ac.uk with the words:
'leave mailscanner' in the body of the email.
Before posting, read the MAQ (http://www.mailscanner.biz/maq/) and
the archives (http://www.jiscmail.ac.uk/lists/mailscanner.html).
</x-flowed>