[project @ 2000-05-23 06:59:31 by ajt]

In pkgreport.cgi?pkg=<foo>, foo isn't a regexp, so don't treat it like one.

diff --git a/cgi/common.pl b/cgi/common.pl
index 47bb36ff8f1536767bfa42396ccf03e5e706aefb..64c48239ca67a88fe29e6dc1c7ae5766be888c09 100644 (file)
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -139,10 +139,10 @@ sub pkgbugs {
        else { open I, "<$debbugs::gSpoolDir/index.db" || &quit("bugindex: $!"); } 
     
     while(<I>) 
-       {       if (/^$pkg\s+(\d+)\s+(.+)/)
+       {       if (m/^(\S+)\s+(\d+)\s+(.+)/ && $1 eq $pkg)
                {       
-                       my $tmpstr = sprintf( "%d: %s", $1, $2 );
-                       $descstr{ $1 } = $tmpstr;
+                       my $tmpstr = sprintf( "%d: %s", $2, $3 );
+                       $descstr{ $2 } = $tmpstr;
                }
     }
     return %descstr;
@@ -153,7 +153,7 @@ sub pkgbugsindex {
     my @bugs = ();
        if ( $archive ) { open I, "<$debbugs::gSpoolDir/index.archive" || &quit("bugindex: $!"); } 
        else { open I, "<$debbugs::gSpoolDir/index.db" || &quit("bugindex: $!"); } 
-    while(<I>) { $descstr{ $1 } = 1 if (/^(\S+)/); }
+    while(<I>) { $descstr{ $1 } = 1 if (m/^(\S+)/); }
     return %descstr;
 }