Mailing List Archive

svn commit: rev 9740 - incubator/spamassassin/trunk/lib/Mail/SpamAssassin
Author: felicity
Date: Wed Mar 24 12:18:58 2004
New Revision: 9740

Modified:
incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm
Log:
remove some unneeded anon subroutines in get_tag() code.

Modified: incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm
==============================================================================
--- incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm (original)
+++ incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm Wed Mar 24 12:18:58 2004
@@ -906,7 +906,7 @@

REQD => sub { $self->_get_tag_value_for_required_score() },

- VERSION => sub { Mail::SpamAssassin::Version() },
+ VERSION => \&Mail::SpamAssassin::Version,

SUBVERSION => sub { $Mail::SpamAssassin::SUB_VERSION },

@@ -922,9 +922,7 @@
sprintf("%3.4f", $self->{bayes_score}) : "0.5"
},

- DATE => sub {
- Mail::SpamAssassin::Util::time_to_rfc822_date();
- },
+ DATE => \&Mail::SpamAssassin::Util::time_to_rfc822_date,

STARS => sub {
my $arg = (shift || "*");