Changeset 17992

Timestamp:

08/21/08 23:50:51 (5 months ago)

Author:

tokuhirom

Message:

added test cases for Config::YAMLSyck

Location:

lang/perl/Nanto/trunk

Files:

• lib/Nanto/Config/YAMLSyck.pm (modified) (1 diff)
• t/Config (added)
• t/Config/YAMLSyck.t (added)
• t/Makefile.PL (added)
• t/config.yaml (added)
• t/lib (added)
• t/lib/Foo (added)
• t/lib/Foo/YAMLSyck.pm (added)

lang/perl/Nanto/trunk/lib/Nanto/Config/YAMLSyck.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;
         YAML::Syck::LoadFile($cfg);