Changeset 3713 for lang/perl/Archer

Show
Ignore:
Timestamp:
12/28/07 11:50:54 (11 months ago)
Author:
tokuhirom
Message:

Archer: use YAML.

Location:
lang/perl/Archer/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Archer/trunk/Makefile.PL

    r3711 r3713  
    2121requires 'Test::More'            => 0; 
    2222requires 'UNIVERSAL::require'    => 0; 
    23 requires 'YAML::Syck'            => 0; 
     23requires 'YAML'                  => 0; 
    2424requires 'Net::SSH'              => 0; 
    2525requires 'Term::ReadLine'        => 0; 

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

    r3697 r3713  
    22use strict; 
    33use warnings; 
    4 use YAML::Syck; 
     4use YAML; 
    55use Storable; 
    66use Carp; 
    … …  
    2020        || ( -e $stuff && -r _ ) ) 
    2121    { 
    22         $config = YAML::Syck::LoadFile($stuff); 
     22        $config = YAML::LoadFile($stuff); 
    2323        $context->{config_path} = $stuff if $context; 
    2424    } 
    2525    elsif ( ref($stuff) && ref($stuff) eq 'SCALAR' ) { 
    26         $config = YAML::Syck::Load( ${$stuff} ); 
     26        $config = YAML::Load( ${$stuff} ); 
    2727    } 
    2828    elsif ( ref($stuff) && ref($stuff) eq 'HASH' ) { 
    … …  
    3333    } 
    3434 
    35     my $res = validate( YAML::Syck::LoadFile($schema_file), $config ); 
     35    my $res = validate( YAML::LoadFile($schema_file), $config ); 
    3636    $context->log( error => $res ) unless $res == 1; 
    3737