diff options
author | gerv%gerv.net <> | 2002-09-19 01:59:55 +0000 |
---|---|---|
committer | gerv%gerv.net <> | 2002-09-19 01:59:55 +0000 |
commit | 66d8d89e6ba178a02f48a9dff143f15ffae923ec (patch) | |
tree | c6d0c9c0e81a9f80e9887c47c72a690be93387df /page.cgi | |
parent | 1809e275fdbca3cb1607799a630489a3a9dc956d (diff) | |
download | bugs-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-x | page.cgi | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |