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 2006/05/16 19:36:46 UTC
svn commit: r407003 -
/spamassassin/branches/3.1/lib/Mail/SpamAssassin/Message.pm
Author: jm
Date: Tue May 16 10:36:45 2006
New Revision: 407003
URL: http://svn.apache.org/viewcvs?rev=407003&view=rev
Log:
trivial fix: inhibit 'undefined value' warnings
Modified:
spamassassin/branches/3.1/lib/Mail/SpamAssassin/Message.pm
Modified: spamassassin/branches/3.1/lib/Mail/SpamAssassin/Message.pm
URL: http://svn.apache.org/viewcvs/spamassassin/branches/3.1/lib/Mail/SpamAssassin/Message.pm?rev=407003&r1=407002&r2=407003&view=diff
==============================================================================
--- spamassassin/branches/3.1/lib/Mail/SpamAssassin/Message.pm (original)
+++ spamassassin/branches/3.1/lib/Mail/SpamAssassin/Message.pm Tue May 16 10:36:45 2006
@@ -139,7 +139,9 @@
}
# Pull off mbox and mbx separators
- if ( $message[0] =~ /^From\s/ ) {
+ if (!defined $message[0]) {
+ # no separator, there's no message ;)
+ } elsif ($message[0] =~ /^From\s/) {
# mbox formated mailbox
$self->{'mbox_sep'} = shift @message;
} elsif ($message[0] =~ MBX_SEPARATOR) {