Beta 4.15-12

[Julian Field]

Thanks for that. Works fine under 5.005.

At 21:48 30/04/2003, you wrote:
>This should apply nicely to 4.15-13 and work with any version of Perl5...
>
>El 30 Apr 2003 a las 21:36, Julian Field escribió:
>
> > At 21:27 30/04/2003, you wrote:
> > >This is what I get on an AIX box:
> > >$ perl -e 'use English; printf "%vd\n",$PERL_VERSION;'
> > >%vd
> > >$ perl --version
> > >
> > >This is perl, version 5.004_03
> >
> > Does the same thing on 5.005 as well :-(
> > So, as it stands, this feature won't work on perl pre 5.6.
> >
> > >Le mer 30/04/2003 à 16:21, Mariano Absatz a écrit :
> > > > BTW... I'm not at all sure that this is as backward portable as Tony
> > > > thinks...
> > > >
> > > > can someone with access to a pre 5.6 perl tell me what does this 
> command
> > > > print:
> > > >
> > > > perl -e 'use English; printf "%vd\n",$PERL_VERSION;'
> > > >
> > > > TIA
> > > >
> > > >
> > > > El 30 Apr 2003 a las 16:58, Mariano Absatz escribió:
> > > >
> > > > > El 30 Apr 2003 a las 19:37, Julian Field escribió:
> > > > >
> > > > > > As so much has happened in the last 24 hours or so, here's a 
> new beta
> > > > > > release. It's on the downloads page, so go to
> > > > > >         www.sng.ecs.soton.ac.uk/mailscanner/downloads.shtml
> > > > > > to get it.
> > > > > >
> > > > > > I have been pretty careful on what changes have gone in, and 
> what have
> > > > > > stayed out, but some testing by you folks would be much 
> appreciated.
> > > > > OK, you did what Tony said, but kept a bug of mine (I had to 
> versions
> > > and
> > > > > sent the wrong patch last time)...
> > > > >
> > > > > As the Camel book says, $PERL_VERSION is _not_ printable, so you 
> must
> > > use
> > > > > sprintf("%vd",$PERL_VERSION)... this patch applies to 4.15-12 (sorry
> > > for the
> > > > > last one):
>*** SA.pm.old   Wed Apr 30 17:34:05 2003
>--- SA.pm       Wed Apr 30 17:46:51 2003
>***************
>*** 92,98 ****
>         # for finding the SpamAssassin libraries
>         # Use unshift rather than push so that their given location is
>         # always searched *first* and not last in the include path.
>!       unshift @INC, "$val/lib/perl5/site_perl/$PERL_VERSION";
>       }
>       # Now we have the path built, try to find the SpamAssassin modules
>       MailScanner::Log::DieLog("SpamAssassin installation could not be 
> found")
>--- 92,99 ----
>         # for finding the SpamAssassin libraries
>         # Use unshift rather than push so that their given location is
>         # always searched *first* and not last in the include path.
>!       my $perl_vers = $PERL_VERSION < 5.006 ? $PERL_VERSION : 
>sprintf("%vd",$PERL_VERSION);
>!       unshift @INC, "$val/lib/perl5/site_perl/$perl_vers";
>       }
>       # Now we have the path built, try to find the SpamAssassin modules
>       MailScanner::Log::DieLog("SpamAssassin installation could not be 
> found")
>
>
>
>--
>Mariano Absatz
>El Baby
>----------------------------------------------------------
>The Internet is mightier than the pen.

-- 
Julian Field
www.MailScanner.info
Professional Support Services at www.MailScanner.biz
MailScanner thanks transtec Computers for their support