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/11/12 02:45:50 UTC
svn commit: r332703 - /spamassassin/trunk/masses/corpora/mk-corpus-link-farm
Author: jm
Date: Fri Nov 11 17:45:48 2005
New Revision: 332703
URL: http://svn.apache.org/viewcvs?rev=332703&view=rev
Log:
oops, syntax errors
Modified:
spamassassin/trunk/masses/corpora/mk-corpus-link-farm
Modified: spamassassin/trunk/masses/corpora/mk-corpus-link-farm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/masses/corpora/mk-corpus-link-farm?rev=332703&r1=332702&r2=332703&view=diff
==============================================================================
--- spamassassin/trunk/masses/corpora/mk-corpus-link-farm (original)
+++ spamassassin/trunk/masses/corpora/mk-corpus-link-farm Fri Nov 11 17:45:48 2005
@@ -45,6 +45,7 @@
use File::Basename;
use Data::Dumper;
use SDBM_File;
+use Fcntl;
my $DEBUG; #$DEBUG=1;
@@ -100,9 +101,14 @@
# use an on-disk file -- this list can get pretty big!
my $poss_del_path = "$mbox_tmpdir/dels.$$";
-tie(%h, 'SDBM_File', $poss_del_path, O_RDWR|O_CREAT, 0600)
- or die "Couldn't tie SDBM file $poss_del_path: $!; aborting";
-my $poss_delete = \%h;
+my $poss_delete;
+
+{
+ my %h;
+ tie(%h, 'SDBM_File', $poss_del_path, O_RDWR|O_CREAT, 0600)
+ or die "Couldn't tie SDBM file $poss_del_path: $!; aborting";
+ $poss_delete = \%h;
+}
my $mbox_work = "$mbox_tmpdir/mboxes.d";
if (-d $mbox_work) {