[project @ 2001-11-22 00:55:00 by doogie]

Quote $pkg with \Q\E before passing to grep.

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index e52797f92d0908b7b36920377a901841350ed0f7..18c72e3f35ce3e1f02977a9367b169d57ba1d254 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -148,7 +148,7 @@ if (defined $pkg || defined $src) {
     }
     my %pkgsrc = %{getpkgsrc()};
     my @pkgs = getsrcpkgs($pkg ? $pkgsrc{ $pkg } : $src);
-    @pkgs = grep( !/^$pkg$/, @pkgs ) if ( $pkg );
+    @pkgs = grep( !/^\Q$pkg\E$/, @pkgs ) if ( $pkg );
     if ( @pkgs ) {
        @pkgs = sort @pkgs;
        if ($pkg) {