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/02/25 16:39:14 UTC
svn commit: r1074584 - /spamassassin/trunk/lib/Mail/SpamAssassin/Timeout.pm
Author: mmartinec
Date: Fri Feb 25 15:39:14 2011
New Revision: 1074584
URL: http://svn.apache.org/viewvc?rev=1074584&view=rev
Log:
squash undef warnings during a self-test of Timeout.pm
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Timeout.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Timeout.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Timeout.pm?rev=1074584&r1=1074583&r2=1074584&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Timeout.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Timeout.pm Fri Feb 25 15:39:14 2011
@@ -98,9 +98,12 @@ sub new {
my ($class, $opts) = @_;
$class = ref($class) || $class;
my %selfval = $opts ? %{$opts} : ();
+ $selfval{id} = ++$id_gen;
my($package, $filename, $line, $subroutine) = caller(1);
- $subroutine =~ s/^Mail::SpamAssassin::/::/;
- $selfval{id} = join('/', ++$id_gen, $subroutine, $line);
+ if (defined $subroutine) {
+ $subroutine =~ s/^Mail::SpamAssassin::/::/;
+ $selfval{id} = join('/', $id_gen, $subroutine, $line);
+ }
my $self = \%selfval;
bless ($self, $class);