Changeset 23502

Show
Ignore:
Timestamp:
11/13/08 09:28:08 (6 years ago)
Author:
mattn
Message:

/はCGIへ

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/MENTA/trunk/lib/MENTA.pm

    r23462 r23502  
    5858        if (my $path = $ENV{PATH_INFO}) { 
    5959            $path =~ s!^/+!!g; 
    60             if ($path =~ /^[a-z0-9_]+$/) { 
     60            if ($path =~ /^[a-z0-9_]*$/) { 
    6161                my $mode = $path || 'index'; 
    6262                my $meth = "do_$mode";