#============================================================= -*-perl-*-
#
# BackupPC_zcat: uncompress files to stdout
#============================================================= -*-perl-*-
#
# BackupPC_zcat: uncompress files to stdout
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
while ( ($r = $fh->read(\$data, 65536)) > 0 ) {
print($data);
}
if ( $r < 0 ) {
print(STDERR "$0: can't uncompress $fileName\n");
while ( ($r = $fh->read(\$data, 65536)) > 0 ) {
print($data);
}
if ( $r < 0 ) {
print(STDERR "$0: can't uncompress $fileName\n");