Changeset 24035 for lang/perl/MENTA/trunk

Timestamp:

11/18/08 10:01:12 (5 years ago)

Author:

tokuhirom

Message:

構造を綺麗にする

Files:

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

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

@@ -100 +100 @@
         if ($path =~ /^[a-z0-9_]*$/) {
             my $mode = $path || 'index';
-            my $meth = "do_$mode";
             my $cdir = controller_dir();
             my $controller = "${cdir}/${path}.pl";
             my $controller_mt = ($MENTA::BUILT ? cache_dir() : controller_dir()) . "/${mode}.mt";
             if (-f $controller) {
+                my $meth = "do_$mode";
                 package main;
                 do $controller;