Changeset 24468

Timestamp:

11/20/08 17:45:04 (5 years ago)

Author:

tokuhirom

Message:

ふかいディレクトリも表示できるようになた

Files:

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

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

@@ -7 +7 @@
     my $path = $ENV{PATH_INFO} || '/';
     $path =~ s!^/+!!g;
-    if ($path =~ /^[a-z0-9_]*$/) {
+    if ($path =~ m{^[a-z0-9_/]+$}) {
         $path ||= 'index';
         my $cdir = main::controller_dir();