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

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

Modified Files:
        mass-check 
Log Message:
turn on tainting in mass-check


Index: mass-check
===================================================================
RCS file: /cvsroot/spamassassin/spamassassin/masses/mass-check,v
retrieving revision 1.119
retrieving revision 1.120
diff -b -w -u -d -r1.119 -r1.120
--- mass-check  20 Aug 2003 02:44:17 -0000      1.119
+++ mass-check  16 Sep 2003 03:40:10 -0000      1.120
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl -w -T
 
 # options
 #
@@ -54,8 +54,13 @@
            $opt_showdots $opt_spamlog $opt_tail $opt_rules $opt_restart
            $opt_after $opt_rewrite);
 
+BEGIN {
 use FindBin;
-use lib "$FindBin::Bin/../lib";
+  my $local = "$FindBin::Bin/../lib";
+  $local = $1 if $local =~ /^(\S+)$/;
+  push(@INC, $local);
+}
+
 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