X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_zcat;h=4b08bec401f8444cbb5dabadb066c642d6446f19;hp=caf5d9968cc84ba1a5d37da68d40a8146a92680a;hb=5b3e6091d542c2e7445d5dd511cdf6e20aec8b8d;hpb=79e0593c501fd58046feeca20c315cc4ac283435

diff --git a/bin/BackupPC_zcat b/bin/BackupPC_zcat
index caf5d99..4b08bec 100755
--- a/bin/BackupPC_zcat
+++ b/bin/BackupPC_zcat
@@ -32,7 +32,7 @@
 #
 #========================================================================
 #
-# Version 2.1.0beta2, released 23 May 2004.
+# Version 3.0.0alpha, released 23 Jan 2006.
 #
 # See http://backuppc.sourceforge.net.
 #
@@ -48,28 +48,33 @@ use BackupPC::FileZIO;
 sub zcat
 {
     my($fh, $fileName) = @_;
-    my($data, $r);
+    my($data, $r, $ret);
 
     while ( ($r = $fh->read(\$data, 65536)) > 0 ) { 
         print($data);
     }
     if ( $r < 0 ) {
         print(STDERR "$0: can't uncompress $fileName\n");
+	$ret = 1;
     }
     $fh->close();
+    return $ret;
 }
 
+my $ret = 0;
 if ( @ARGV ) {
     while ( @ARGV ) {
         if ( defined(my $fh = BackupPC::FileZIO->open($ARGV[0], 0, 1)) ) {
-            zcat($fh, $ARGV[0]);
+            $ret ||= zcat($fh, $ARGV[0]);
         } else {
             print(STDERR "$0: can't open $ARGV[0]\n");
-            exit(1);
+            $ret = 1;
+	    last;
         }
         shift @ARGV;
     }
 } else {
     my $fh = BackupPC::FileZIO->open(*STDIN, 0, 1);
-    zcat($fh, "stdin");
+    $ret ||= zcat($fh, "stdin");
 }
+exit($ret);