summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorgerv%gerv.net <>2002-09-19 03:59:55 +0200
committergerv%gerv.net <>2002-09-19 03:59:55 +0200
commit66d8d89e6ba178a02f48a9dff143f15ffae923ec (patch)
treec6d0c9c0e81a9f80e9887c47c72a690be93387df
parent1809e275fdbca3cb1607799a630489a3a9dc956d (diff)
downloadbugzilla-66d8d89e6ba178a02f48a9dff143f15ffae923ec.tar.gz
bugzilla-66d8d89e6ba178a02f48a9dff143f15ffae923ec.tar.xz
Fallout from previous checkin; need to escape "-" in regexp for some versions of Perl, because it interprets it as a range.
-rwxr-xr-xpage.cgi2
1 files changed, 1 insertions, 1 deletions
diff --git a/page.cgi b/page.cgi
index 3494b68dd..af0903c30 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);