Changeset 3713 for lang/perl/Archer/trunk/lib/Archer/ConfigLoader.pm

Timestamp:

12/28/07 11:50:54 (13 months ago)

Author:

tokuhirom

Message:

Archer: use YAML.

Files:

• lang/perl/Archer/trunk/lib/Archer/ConfigLoader.pm (modified) (3 diffs)

lang/perl/Archer/trunk/lib/Archer/ConfigLoader.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-use YAML::Syck;
+use YAML;
 use Storable;
 use Carp;
@@ -20 +20 @@
         || ( -e $stuff && -r _ ) )
     {
-        $config = YAML::Syck::LoadFile($stuff);
+        $config = YAML::LoadFile($stuff);
         $context->{config_path} = $stuff if $context;
     }
     elsif ( ref($stuff) && ref($stuff) eq 'SCALAR' ) {
-        $config = YAML::Syck::Load( ${$stuff} );
+        $config = YAML::Load( ${$stuff} );
     }
     elsif ( ref($stuff) && ref($stuff) eq 'HASH' ) {
@@ -33 +33 @@
     }
 
-    my $res = validate( YAML::Syck::LoadFile($schema_file), $config );
+    my $res = validate( YAML::LoadFile($schema_file), $config );
     $context->log( error => $res ) unless $res == 1;