Beta 4.15-12

[Mariano Absatz]

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.