You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by mm...@apache.org on 2011/01/04 16:37:31 UTC
svn commit: r1055082 -
/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm
Author: mmartinec
Date: Tue Jan 4 15:37:31 2011
New Revision: 1055082
URL: http://svn.apache.org/viewvc?rev=1055082&view=rev
Log:
avoid an undef warning with debug log
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm?rev=1055082&r1=1055081&r2=1055082&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm Tue Jan 4 15:37:31 2011
@@ -1117,8 +1117,9 @@ sub tag_is_ready {
if (would_log('dbg', 'check')) {
my $tag_val = $self->{tag_data}{$tag};
dbg("check: tagrun - tag %s is now ready, value: %s",
- $tag, ref $tag_val ne 'ARRAY' ? $tag_val
- : 'ARY:['.join(',',@$tag_val).']' );
+ $tag, !defined $tag_val ? '<UNDEF>'
+ : ref $tag_val ne 'ARRAY' ? $tag_val
+ : 'ARY:[' . join(',',@$tag_val) . ']' );
}
if (ref $self->{tagrun_actions}{$tag}) { # any action blocking on this tag?
my $action_ind = 0;