Changeset 11910 for lang/perl/Config-Multi

Timestamp:

05/18/08 19:19:58 (5 years ago)

Author:

vkgtaro

Message:

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

Files:

• lang/perl/Config-Multi/trunk/lib/Config/Multi.pm (modified) (3 diffs)

lang/perl/Config-Multi/trunk/lib/Config/Multi.pm

@@ -25 +25 @@
 
     my $app_files = $self->_find_files( $self->{app_name} );
-    my $app = Config::Any->load_files( { files => $app_files } );
+    my $app = Config::Any->load_files( { use_ext => 1, files => $app_files } );
     for ( @{$app} ) {
         my ( $filename, $data ) = %$_;
@@ -35 +35 @@
         my $prefix_files
             = $self->_find_files( $self->{prefix} . '_' . $self->{app_name} );
-        my $prefix = Config::Any->load_files( { files => $prefix_files } );
+        my $prefix = Config::Any->load_files( { use_ext => 1, files => $prefix_files } );
         for ( @{$prefix} ) {
             my ( $filename, $data ) = %$_;
@@ -44 +44 @@
 
     my $local_files = $self->_local_files;
-    my $local = Config::Any->load_files( { files => $local_files } );
+    my $local = Config::Any->load_files( { use_ext => 1, files => $local_files } );
     my $local_config = {} ;
     for ( @{$local} ) {