Changeset 17993

Timestamp:

08/22/08 00:10:56 (3 months ago)

Author:

tokuhirom

Message:

oops

Files:

• lang/perl/Nanto/trunk/lib/Nanto/Config/Any.pm (modified) (1 diff)

lang/perl/Nanto/trunk/lib/Nanto/Config/Any.pm

@@ -16 +16 @@
 
     $cache->{$class} ||= do {
-        my $cfg = catfile(Nanto::Utils::home(__PACKAGE__), config_fname);
+        my $cfg = catfile(Nanto::Utils::home($class), config_fname);
         croak "$cfg not found" unless -f $cfg;
         Config::Any->load_files({ files => [ $cfg ], use_ext => 1 })->[0]->{$cfg};