Perl Issues THANKS

[Lars Kristiansen]

> It's a Perl issue.
Thanks from me too.

Seems like this issue was introduced by a patch in the freebsd-port
"P5-MIME-Tools".
The original "Filer.pm" is also still there but renamed to "Filer.pm.orig"

Not shure how too behave correctly, but i took the liberty too cc this
message to that ports maintainer.

--
Lars



>
> 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).
>



----------------------------------------------------------------
Tjenesten mail.adventuras.no ble levert av Adventuras Web Agency
http://www.adventuras.no/

------------------------ 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).