Changeset 14 for trunk

Timestamp:

09/26/05 17:28:28 (19 years ago)

Author:

thauvin

Message:

• fix dest location after chdir with relative path

File:

• trunk/soft/ObsData/ObsData/Archive/Tar.pm (modified) (2 diffs, 1 prop)

trunk/soft/ObsData/ObsData/Archive/Tar.pm

@@ -47 +47 @@
     my $here = getcwd();
     my $abs_path = Cwd::abs_path($self->{archive});
+    my $abs_dest = Cwd::abs_path($dest);
     
     chdir($tempdir);
@@ -56 +57 @@
     
     if ($dest) {
-        my $fname = $dest;
-        open(my $fh, '>', $dest) or return undef;
+        open(my $fh, '>', $abs_dest) or return undef;
         if(!copy("$tempdir/$file", $fh)) {
-            unlink($fname);
+            unlink($abs_dest);
             chdir($here);
             return undef;