Changeset 152

Timestamp:

12/15/05 21:18:31 (18 years ago)

Author:

thauvin

Message:

• fix call to seterror

Location:

trunk/soft/ObsData/ObsData/Archive

Files:

• Compressed.pm (modified) (1 diff, 1 prop)
• Tar.pm (modified) (2 diffs, 1 prop)

trunk/soft/ObsData/ObsData/Archive/Compressed.pm

@@ -59 +59 @@
     
     if(!copy($sourcefh, $fh)) {
-        seterror("Can't copy file to destination: $!");
+        $self->seterror("Can't copy file to destination: $!");
         unlink($fname);
         return undef;

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

@@ -52 +52 @@
     
     if(!chdir($tempdir)) {
-        seterror("Can't chdir: $!");
+        $self->seterror("Can't chdir: $!");
         return undef;
     }
 
     system("$self->{uncomp} '$abs_path' | tar xf - '$file'") and do {
-        seterror("Can't extract file from tar: $!");
+        $self->seterror("Can't extract file from tar: $!");
         chdir($here);
         return undef;
@@ -65 +65 @@
         open(my $fh, '>', $abs_dest) or return undef;
         if(!copy("$tempdir/$file", $fh)) {
-            seterror("Can't copy file to destination: $!");
+            $self->seterror("Can't copy file to destination: $!");
             unlink($abs_dest);
             chdir($here);