Changeset 25960

Show
Ignore:
Timestamp:
12/05/08 18:34:18 (5 weeks ago)
Author:
kazuho
Message:

optimization

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/NanoA/trunk/lib/NanoA/Config.pm

    r25932 r25960  
    1414     
    1515    # read configuration and setup data directory 
    16     if (-e 'nanoa-conf.cgi') { 
    17         my $conf = NanoA::read_file('nanoa-conf.cgi'); 
    18         $conf =~ /(?:^|\n)data_dir\s*=\s*(.*)/ 
    19             or die "nanoa-conf.cgi に data_dir が設定されていません\n"; 
    20         $data_dir = $1; 
     16    if (open my $fh, '<', 'nanoa-conf.cgi') { 
     17        { 
     18            no utf8; 
     19            my $conf = do { local $/; join '', <$fh> }; 
     20            close $fh; 
     21            $conf =~ /(?:^|\n)data_dir\s*=\s*(.*)/ 
     22                and $data_dir = $1; 
     23        } 
     24        die "nanoa-conf.cgi に data_dir が設定されていません\n" 
     25            unless $data_dir; 
    2126    } else { 
    2227        if (! $ENV{HTTP_NANOA_USE_HTACCESS}) {