Mailing List Archive

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 {