Changeset 23522 for lang/perl/MENTA/trunk

Timestamp:

11/13/08 11:21:11 (5 years ago)

Author:

tokuhirom

Message:

config が設定されていることは保障されるようになったのだ

Files:

• lang/perl/MENTA/trunk/lib/MENTA.pm (modified) (2 diffs)

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

@@ -33 +33 @@
 
     eval {
-        my $config = config();
-        if (! $config) {
-            die "config() でアプリケーション設定がされていません!";
-        }
-
         my $path = $ENV{PATH_INFO} || '/';
         $path =~ s!^/+!!g;
@@ -72 +67 @@
         print "\r\n";
 
-        my $config = config() || {};
         my $body = do {
             if ($config->{menta}->{kcatch_mode}) {