/[cwmp]/google/trunk/lib/CWMP/Store/YAML.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/trunk/lib/CWMP/Store/YAML.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 153 by dpavlin, Sat Oct 27 22:53:44 2007 UTC revision 155 by dpavlin, Sat Oct 27 22:54:11 2007 UTC
# Line 6  use warnings; Line 6  use warnings;
6    
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
8  use YAML qw/LoadFile DumpFile/;  use YAML qw/LoadFile DumpFile/;
9    use Hash::Merge qw/merge/;
10    
11  =head1 NAME  =head1 NAME
12    
# Line 44  sub update_uid_state { Line 45  sub update_uid_state {
45    
46          my $file = "$dir/$uid.yml";          my $file = "$dir/$uid.yml";
47    
48          DumpFile( $file, $state ) || die "can't write $file: $!";          my $old_state = $self->get_state( $uid );
49    
50            my $combined = merge( $state, $old_state );
51    
52    #       warn "## ",dump( $old_state, $state, $combined );
53    
54            DumpFile( $file, $combined ) || die "can't write $file: $!";
55    
56  }  }
57    
Legend:
Removed from v.153  
changed lines
  Added in v.155
  ViewVC Help
Powered by ViewVC 1.1.26