You are viewing a plain text version of this content. The canonical link for it is here.

Posted to commits@spamassassin.apache.org by jm...@apache.org on 2005/10/15 01:34:16 UTC

svn commit: r321248 - /spamassassin/trunk/masses/rule-qa/corpus-hourly

Author: jm
Date: Fri Oct 14 16:34:15 2005
New Revision: 321248

URL: http://svn.apache.org/viewcvs?rev=321248&view=rev
Log:
some zone portage

Modified:
    spamassassin/trunk/masses/rule-qa/corpus-hourly

Modified: spamassassin/trunk/masses/rule-qa/corpus-hourly
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/masses/rule-qa/corpus-hourly?rev=321248&r1=321247&r2=321248&view=diff
==============================================================================
--- spamassassin/trunk/masses/rule-qa/corpus-hourly (original)
+++ spamassassin/trunk/masses/rule-qa/corpus-hourly Fri Oct 14 16:34:15 2005
@@ -1,9 +1,10 @@
-#!/usr/bin/perl -w
+#!/local/perl586/bin/perl -w
 
 # settings are located in $HOME/.corpus
 
 use strict;
 use File::Path;
+use Time::ParseDate;
 use POSIX qw(nice strftime);
 
 use constant WEEK => 60*60*24;
@@ -119,7 +120,6 @@
       if ($line =~ /, on (... ... .. )(..)(:..:.. ... ....)/) {
         my ($datepre, $hh, $datepost) = ($1,$2,$3);
         
-        use Time::ParseDate;
         my $timet = Time::ParseDate::parsedate($datepre.$hh.$datepost,
                     GMT => 1, PREFER_PAST => 1);
         $time{$file} = $timet;