From 66d8d89e6ba178a02f48a9dff143f15ffae923ec Mon Sep 17 00:00:00 2001 From: "gerv%gerv.net" <> Date: Thu, 19 Sep 2002 01:59:55 +0000 Subject: Fallout from previous checkin; need to escape "-" in regexp for some versions of Perl, because it interprets it as a range. --- page.cgi | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- cgit v1.2.1