Changeset 206

Timestamp:

01/25/06 14:20:43 (18 years ago)

Author:

thauvin

Message:

• backport from HEAD the lazy mode for status file

File:

• branches/v0_2/soft/ObsData/ObsData/Repository.pm (modified) (3 diffs, 1 prop)

branches/v0_2/soft/ObsData/ObsData/Repository.pm

@@ -145 +145 @@
     $self->{statusfile} or return;
     if (!$self->{dry_run}) {
+        $self->logging(0,
+            "Writing status file: %s",
+            $self->{statusfile},
+        );
         $self->update_global_status;
         $self->{status}->WriteConfig($self->{statusfile});
@@ -329 +333 @@
 
     bless($or, $class);
+}
+
+sub DESTROY {
+    my ($self) = @_;
+    $self->logging(0, "Destroy ObsData::Repository for %s", ref($self));
+    if ($self->{status_changed}) {
+        $self->save_status
+    }
 }
 
@@ -386 +398 @@
         $self->{archivefile}, $var, $comment
     ) if(defined($comment));
+    $self->{status_changed} = 1;
 }