[project @ 2003-09-17 23:37:00 by doogie]

[debbugs.git] / cgi / common.pl

diff --git a/cgi/common.pl b/cgi/common.pl
index ba944a0ffb15c3a0f5f79253f05b0c93ec2aeea2..3f3d70b6f716b01cc143bfafdc2e08a4f390cfac 100644 (file)
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -462,7 +462,8 @@ sub allbugs {
 
 sub bugmatches(\%\%) {
     my ($hash, $status) = @_;
-    while ((my ($key, $value) = each(%$hash))) {
+    foreach my $key( keys( %$hash ) ) {
+        my $value = $hash->{$key};
        my $sub = $field_match{$key};
        return 1 if ($sub->($key, $value, $status));
     }