Show
Ignore:
Timestamp:
11/13/08 11:21:11 (6 years ago)
Author:
tokuhirom
Message:

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

Files:
1 modified

Legend:

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

    r23521 r23522  
    3333 
    3434    eval { 
    35         my $config = config(); 
    36         if (! $config) { 
    37             die "config() でアプリケーション設定がされていません!"; 
    38         } 
    39  
    4035        my $path = $ENV{PATH_INFO} || '/'; 
    4136        $path =~ s!^/+!!g; 
     
    7267        print "\r\n"; 
    7368 
    74         my $config = config() || {}; 
    7569        my $body = do { 
    7670            if ($config->{menta}->{kcatch_mode}) {