[SACVS] CVS: spamassassin/masses mass-check,1.120,1.121

Update of /cvsroot/spamassassin/spamassassin/masses
In directory sc8-pr-cvs1:/tmp/cvs-serv19248

Modified Files:
        mass-check 
Log Message:
reverting, taint-mode change didn't work, can fix later


Index: mass-check
===================================================================
RCS file: /cvsroot/spamassassin/spamassassin/masses/mass-check,v
retrieving revision 1.120
retrieving revision 1.121
diff -b -w -u -d -r1.120 -r1.121
--- mass-check  16 Sep 2003 03:40:10 -0000      1.120
+++ mass-check  16 Sep 2003 19:32:19 -0000      1.121
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -T
+#!/usr/bin/perl -w
 
 # options
 #
@@ -54,13 +54,8 @@
            $opt_showdots $opt_spamlog $opt_tail $opt_rules $opt_restart
            $opt_after $opt_rewrite);
 
-BEGIN {
   use FindBin;
-  my $local = "$FindBin::Bin/../lib";
-  $local = $1 if $local =~ /^(\S+)$/;
-  push(@INC, $local);
-}
-
+use lib "$FindBin::Bin/../lib";
 eval "use bytes";
 use Mail::SpamAssassin::ArchiveIterator;
 use Mail::SpamAssassin;



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf