27 lines
684 B
Perl
27 lines
684 B
Perl
--- bayes_process_email.pl.orig Sun Sep 8 16:48:05 2002
|
|
+++ bayes_process_email.pl Sun Sep 8 16:48:28 2002
|
|
@@ -6,6 +6,7 @@
|
|
use Fcntl;
|
|
use DB_File;
|
|
|
|
+use vars qw($number_of_messages %token_occurrences);
|
|
use Bayespam::Process;
|
|
|
|
#
|
|
@@ -165,8 +166,6 @@
|
|
# dashes, and dollar signs -- words, in other words.
|
|
sub ProcessDirectory
|
|
{
|
|
- our $number_of_messages;
|
|
- our %token_occurrences;
|
|
my $directory = shift(@_);
|
|
local *number_of_messages = shift(@_);
|
|
local *token_occurrences = shift(@_);
|
|
@@ -227,7 +226,6 @@
|
|
# dashes, and dollar signs -- words, in other words.
|
|
sub ProcessFile
|
|
{
|
|
- our %token_occurrences;
|
|
my $file = shift(@_);
|
|
local *token_occurrences = shift(@_);
|
|
|