aboutsummaryrefslogtreecommitdiffstats
path: root/page.cgi
diff options
context:
space:
mode:
authorgerv%gerv.net <>2002-09-19 01:59:55 +0000
committergerv%gerv.net <>2002-09-19 01:59:55 +0000
commit66d8d89e6ba178a02f48a9dff143f15ffae923ec (patch)
treec6d0c9c0e81a9f80e9887c47c72a690be93387df /page.cgi
parent1809e275fdbca3cb1607799a630489a3a9dc956d (diff)
downloadbugs-66d8d89e6ba178a02f48a9dff143f15ffae923ec.tar
bugs-66d8d89e6ba178a02f48a9dff143f15ffae923ec.tar.gz
bugs-66d8d89e6ba178a02f48a9dff143f15ffae923ec.tar.bz2
bugs-66d8d89e6ba178a02f48a9dff143f15ffae923ec.tar.xz
bugs-66d8d89e6ba178a02f48a9dff143f15ffae923ec.zip
Fallout from previous checkin; need to escape "-" in regexp for some versions of Perl, because it interprets it as a range.
Diffstat (limited to 'page.cgi')
-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);