From: ajt <>
Date: Sun, 25 Feb 2001 22:04:14 +0000 (-0800)
Subject: [project @ 2001-02-25 14:04:14 by ajt]
X-Git-Tag: release/2.6.0~1143
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0a919753b6372ed94b51f8ee443d2505964a4591;p=debbugs.git

[project @ 2001-02-25 14:04:14 by ajt]
unapply the damn patch correctly
---

diff --git a/cgi/common.pl b/cgi/common.pl
index da2fb903..8af9059f 100644
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -326,9 +326,9 @@ print STDERR "done optimized\n" if ($debug);
         }
         while(<I>) {
             if (m/^(\S+)\s+(\d+)\s+(\d+)\s+(\S+)\s+\[\s*([^]]*)\s*\]\s+(\w+)\s+(.*)$/) {
-		my %hash = (pkg => $1, bug => $2, status => $4,
-			    submitter => $5, severity => $6, tags => $7);
-                if ($bugfunc->(%hash)) {
+                if ($bugfunc->(pkg => $1, bug => $2, status => $4,
+			    submitter => $5, severity => $6, tags => $7)) 
+		{
 	       	    push (@result, $2);
 	        }
 	    }
diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index d76329ab..a3550237 100755
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -69,7 +69,7 @@ if (defined $pkg) {
     $me = $1 if ($me =~ m/<(.*)>/);
     push @pkgs, $p if ($me eq $maint);
   }
-  @bugs = @{getbugs(sub {my %d=@_}; my $me; 
+  @bugs = @{getbugs(sub {my %d=@_; my $me; 
 		       ($me = $maintainers{$d{"pkg"}}||"") =~ s/\s*\(.*\)\s*//;
 		       $me = $1 if ($me =~ m/<(.*)>/);
 		       return $me eq $maint;