changed filename check

diff --git a/index.pl b/index.pl
index c5b1adc27b57ad40855a912f20f34f9c340f2cf8..91e474202dcd725d9f230b35d2eaaa6e69d75ca2 100755 (executable)
--- a/index.pl
+++ b/index.pl
@@ -6,7 +6,7 @@ use frame;
 print "Content-type: text/html\n\n";
 
 my $file = $ENV{'QUERY_STRING'};
-$file = "main" unless (defined $file && $file =~ /\w/ && -e "$file.htm");
+$file = "main" unless (defined $file && $file =~ /^\w$/ && -e "$file.htm");