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/04/03 12:25:34 UTC
svn commit: r390993 - /spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm
Author: jm
Date: Mon Apr 3 03:25:30 2006
New Revision: 390993
URL: http://svn.apache.org/viewcvs?rev=390993&view=rev
Log:
bug 4829: use 'keys' to reset 'each' iterator state, instead of just iterating off the end of the array
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm?rev=390993&r1=390992&r2=390993&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm Mon Apr 3 03:25:30 2006
@@ -2993,7 +2993,7 @@
my $flag = 0;
while (my($k,$v) = each %{$self->{html}->{uri_detail}}) {
- next if $flag;
+ last if $flag;
next if ($k !~ m%^https?:/*(?:[^\@/]+\@)?\d+\.\d+\.\d+\.\d+%i);
foreach (@{$v->{anchor_text}}) {
next if (m%^https:/*(?:[^\@/]+\@)?\d+\.\d+\.\d+\.\d+%i);
@@ -3003,6 +3003,7 @@
}
}
}
+ keys %{$self->{html}->{uri_detail}}; # resets iterator, bug 4829
return $flag;
}