Index: package-grep.cgi
===================================================================
RCS file: /cvs/cygwin/htdocs/cgi-bin2/package-grep.cgi,v
retrieving revision 1.26
diff -u -p -r1.26 package-grep.cgi
--- package-grep.cgi	15 Nov 2001 07:48:36 -0000	1.26
+++ package-grep.cgi	29 Jan 2004 00:25:49 -0000
@@ -66,6 +66,6 @@ sub addfn($) {
 
 sub findheader {
     my $p = shift;
-    my $header = ($_[0] =~ m!^.*<a href=.*?>$p</a>.*?<td.*?>([^><]+)<!m)[0];
+    my $header = ($_[0] =~ m!^.*<a href=.*?>\Q$p\E</a>.*?<td.*?>([^><]+)<!m)[0];
     return $header || '';
 }