a784cdebae
Changes: - Change MASTER_SITE to BSDforge.org - Assign MAINTAINERship to reporter - Remove BROKEN - Add LICENSE of GPLv2 - Make portlint happy: - Capitalise start of COMMENT - Regenerate patches PR: 206043 Submitted by: Chris Hutchinson (portmaster@BSDforge.com) Approved by: portmgr (implicit: unmaintained port) MFH: 2016Q1
27 lines
722 B
Perl
27 lines
722 B
Perl
--- bayes_process_email.pl.orig 2016-01-17 18:02:48 UTC
|
|
+++ bayes_process_email.pl
|
|
@@ -6,6 +6,7 @@ use MIME::Parser;
|
|
use Fcntl;
|
|
use DB_File;
|
|
|
|
+use vars qw($number_of_messages %token_occurrences);
|
|
use Bayespam::Process;
|
|
|
|
#
|
|
@@ -165,8 +166,6 @@ untie( %token_ratings );
|
|
# 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 @@ sub ProcessDirectory
|
|
# dashes, and dollar signs -- words, in other words.
|
|
sub ProcessFile
|
|
{
|
|
- our %token_occurrences;
|
|
my $file = shift(@_);
|
|
local *token_occurrences = shift(@_);
|
|
|