diff options
| author | Mario Sergio Fujikawa Ferreira <lioux@FreeBSD.org> | 2002-09-09 03:02:16 +0000 |
|---|---|---|
| committer | Mario Sergio Fujikawa Ferreira <lioux@FreeBSD.org> | 2002-09-09 03:02:16 +0000 |
| commit | 896ccafe996b72d4cd1f9fdbf986b9a5fc00a972 (patch) | |
| tree | 8a124af746da82f0c3d424f6794deb4be718e26c /mail/bayespam/files/patch-bayes_process_email.pl | |
| parent | Don't gratuitously add -O. (diff) | |
bayespam version 0.9.2: qmail spam filter written in Perl using
Bayesian classification
Diffstat (limited to 'mail/bayespam/files/patch-bayes_process_email.pl')
| -rw-r--r-- | mail/bayespam/files/patch-bayes_process_email.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/mail/bayespam/files/patch-bayes_process_email.pl b/mail/bayespam/files/patch-bayes_process_email.pl new file mode 100644 index 000000000000..2e6e3f7b574f --- /dev/null +++ b/mail/bayespam/files/patch-bayes_process_email.pl @@ -0,0 +1,27 @@ +--- 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(@_); + |