Changeset 23502

Timestamp:

11/13/08 09:28:08 (5 years ago)

Author:

mattn

Message:

/はCGIへ

Files:

• lang/perl/MENTA/trunk/lib/MENTA.pm (modified) (1 diff)

lang/perl/MENTA/trunk/lib/MENTA.pm

@@ -58 +58 @@
         if (my $path = $ENV{PATH_INFO}) {
             $path =~ s!^/+!!g;
-            if ($path =~ /^[a-z0-9_]+$/) {
+            if ($path =~ /^[a-z0-9_]*$/) {
                 my $mode = $path || 'index';
                 my $meth = "do_$mode";