changed filename check

diff --git a/index.pl b/index.pl
index 91e474202dcd725d9f230b35d2eaaa6e69d75ca2..b4b52902aebb54e02ff3044ce50bd8968e333244 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");