#============================================================= -*-perl-*-
#
# BackupPC_zcat: uncompress files to stdout
#============================================================= -*-perl-*-
#
# BackupPC_zcat: uncompress files to stdout
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");