From: gerv%gerv.net <>
Date: Thu, 19 Sep 2002 01:59:55 +0000 (+0000)
Subject: Fallout from previous checkin; need to escape "-" in regexp for some versions of... 
X-Git-Tag: bugzilla-2.17.1~136
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=66d8d89e6ba178a02f48a9dff143f15ffae923ec;p=thirdparty%2Fbugzilla.git

Fallout from previous checkin; need to escape "-" in regexp for some versions of Perl, because it interprets it as a range.
---

diff --git a/page.cgi b/page.cgi
index 3494b68ddb..af0903c300 100755
--- a/page.cgi
+++ b/page.cgi
@@ -40,7 +40,7 @@ ConnectToDatabase();
 quietly_check_login();
 
 if (defined $::FORM{'id'}) {
-    $::FORM{'id'} =~ s/[^\w-\.]//g;
+    $::FORM{'id'} =~ s/[^\w\-\.]//g;
     $::FORM{'id'} =~ /(.*)(\.(.*))?/;
 
     my $format = GetFormat($1, undef, $3);