yet another...

[Mariano Absatz]

This also applies to 4.15-13 and does not need
use English;


--
Mariano Absatz
El Baby
----------------------------------------------------------
C makes it easy to shoot yourself in the foot. C++ makes it
harder, but when you do, it blows away your whole leg."
                             -- Bjarne Stroustrup



-------------- next part --------------
*** SA.pm.old   Wed Apr 30 17:34:05 2003
--- SA.pm       Wed Apr 30 18:08:49 2003
***************
*** 34,40 ****
  use strict 'vars';
  use strict 'refs';
  no  strict 'subs'; # Allow bare words for parameter %'s
- use English; # Needed for $PERL_VERSION to work in all versions of Perl

  use POSIX qw(:signal_h); # For Solaris 9 SIG bug workaround
  use IO;
--- 34,39 ----
***************
*** 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")
--- 91,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.
!       my $perl_vers = $] < 5.006 ? $] : sprintf("%vd",$^V);
!       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")