Changeset 11910

Show
Ignore:
Timestamp:
05/18/08 19:19:58 (7 years ago)
Author:
vkgtaro
Message:

Config::Any へ渡す際の引数変更

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Config-Multi/trunk/lib/Config/Multi.pm

    r11791 r11910  
    2525 
    2626    my $app_files = $self->_find_files( $self->{app_name} ); 
    27     my $app = Config::Any->load_files( { files => $app_files } ); 
     27    my $app = Config::Any->load_files( { use_ext => 1, files => $app_files } ); 
    2828    for ( @{$app} ) { 
    2929        my ( $filename, $data ) = %$_; 
     
    3535        my $prefix_files 
    3636            = $self->_find_files( $self->{prefix} . '_' . $self->{app_name} ); 
    37         my $prefix = Config::Any->load_files( { files => $prefix_files } ); 
     37        my $prefix = Config::Any->load_files( { use_ext => 1, files => $prefix_files } ); 
    3838        for ( @{$prefix} ) { 
    3939            my ( $filename, $data ) = %$_; 
     
    4444 
    4545    my $local_files = $self->_local_files; 
    46     my $local = Config::Any->load_files( { files => $local_files } ); 
     46    my $local = Config::Any->load_files( { use_ext => 1, files => $local_files } ); 
    4747    my $local_config = {} ; 
    4848    for ( @{$local} ) {