Fallout from previous checkin; need to escape "-" in regexp for some versions of…

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

Fallout from previous checkin; need to escape "-" in regexp for some versions of…
66d8d89e · gerv%gerv.net · 1809e275 · 66d8d89e
Commit 66d8d89e authored Sep 19, 2002 by gerv%gerv.net
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

page.cgi page.cgi +1 -1

No files found.
--- 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);