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

[jm...@apache.org]

Author: jm
Date: Thu Oct 27 17:47:33 2005
New Revision: 329005

URL: http://svn.apache.org/viewcvs?rev=329005&view=rev
Log:
cosmetic perl cleanup

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=329005&r1=329004&r2=329005&view=diff
==============================================================================
--- spamassassin/trunk/masses/rule-qa/corpus-hourly (original)
+++ spamassassin/trunk/masses/rule-qa/corpus-hourly Thu Oct 27 17:47:33 2005
@@ -327,15 +327,16 @@
   if ($class eq 'LOGS') {
     foreach my $f (@ham, @spam) {
       $f =~ s/[^-\._A-Za-z0-9]+/_/gs;    # sanitize!
+      my $tf = "$fname-$f.gz";
 
-      system("gzip -c < $f > $fname-$f.gz.$$");
+      system("gzip -c < $f > $zf.$$");
       if ($? >> 8 != 0) {
-        warn "gzip -c < $f > $fname-$f.gz.$$ failed";
+        warn "gzip -c < $f > $zf.$$ failed";
       }
 
-      rename("$fname-$f.gz.$$", "$fname-$f.gz") or
-                    warn "cannot rename $fname-$f.gz.$$ to $fname-$f.gz";
-      $bytes += (-s "$fname-$f");
+      rename("$zf.$$", $zf) or
+                    warn "cannot rename $zf.$$ to $zf";
+      $bytes += (-s $zf);
     }
   }
   else {