spamassassin-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From j.@apache.org
Subject svn commit: r374493 - /spamassassin/branches/3.1/lib/Mail/SpamAssassin/NetSet.pm
Date Thu, 02 Feb 2006 20:57:12 GMT
Author: jm
Date: Thu Feb  2 12:57:10 2006
New Revision: 374493

URL: http://svn.apache.org/viewcvs?rev=374493&view=rev
Log:
bug 4485: avoid spurious 'Argument 'a' isn't numeric in pack' warnings from Util.pm

Modified:
    spamassassin/branches/3.1/lib/Mail/SpamAssassin/NetSet.pm

Modified: spamassassin/branches/3.1/lib/Mail/SpamAssassin/NetSet.pm
URL: http://svn.apache.org/viewcvs/spamassassin/branches/3.1/lib/Mail/SpamAssassin/NetSet.pm?rev=374493&r1=374492&r2=374493&view=diff
==============================================================================
--- spamassassin/branches/3.1/lib/Mail/SpamAssassin/NetSet.pm (original)
+++ spamassassin/branches/3.1/lib/Mail/SpamAssassin/NetSet.pm Thu Feb  2 12:57:10 2006
@@ -96,6 +96,7 @@
   my ($self, $ip) = @_;
 
   if (!defined $self->{nets}) { return 0; }
+  if ($ip !~ m/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) { return 0; }
 
   $ip = Mail::SpamAssassin::Util::my_inet_aton($ip);
   foreach my $net (@{$self->{nets}}) {



Mime
View raw message