Changeset 341 for obsdata/trunk

Timestamp:

03/26/14 05:07:44 (10 years ago)

Author:

nanardon

Message:

plusieurs correctif et améliorations

Location:

obsdata/trunk

Files:

• ObsData.pm (modified) (1 diff)
• ObsData/Repository/Status.pm (modified) (3 diffs)

obsdata/trunk/ObsData.pm

@@ -14 +14 @@
 my @loglevel = ( 'DEBUG', 'INFO', 'RESULT', 'WARNING', 'ERROR', 'FATAL', );
 
-our $VERSION = "0.3.4";
+our $VERSION = "0.3.3";
 our $CVSID   = q$Id$;
 our $CVSREV  = ( q$Revision$ =~ /^Revision: (.*) $/ )[0];

obsdata/trunk/ObsData/Repository/Status.pm

@@ -4 +4 @@
 use warnings;
 
-use YAML;
+use YAML::Syck;
 use Config::IniFiles;
 
@@ -16 +16 @@
 
     if ($self->{file} && -r $self->{file}) {
-        $self->{data} = YAML::LoadFile($self->{file});
+        $self->{data} = YAML::Syck::LoadFile($self->{file});
     }
 
@@ -27 +27 @@
     my ($self, $output) = @_;
 
-    YAML::DumpFile($output, $self->{data});
+    if (open(my $handle, '>', $output . '.new')) {
+        print $handle YAML::Syck::Dump($self->{data}) or return;
+        close($handle);
+        unlink($output) or die "Can't unlink old file";
+        rename($output . '.new', $output);
+    } else {
+        die "Can't open $output for wirting\n";
+    }
 }