Changeset 196

Timestamp:

01/13/06 17:34:45 (18 years ago)

Author:

thauvin

Message:

• check dest file eval works instead complaining later

File:

• trunk/soft/ObsData/ObsData/Repository.pm (modified) (1 diff, 1 prop)

trunk/soft/ObsData/ObsData/Repository.pm

@@ -584 +584 @@
     $val{'$datafile'} = $datafile;
     $val{'$archivefile'} = $self->{archivefile};
-    return ($datatype, sprintf(
+    my $destfile = sprintf(
         $dest,
         map { m/^%/ ? strftime($_, @gmtime) : $val{$_} } @destarg,
     ));
+    if (!$destfile) {
+        $self->logging(4, "Can evaluate destination file from %s, %s",
+            $dest,
+            join(", ", map { m/^%/ ? strftime($_, @gmtime) : $val{$_} } @destarg)
+        );
+        return();
+    }
+    return($datatype, $destfile);
 }