}
print "\n";
}
+ print "(empty)\n" if !@_;
}
# normalize_fs (%FS)
sub read_tar {
my ($archive) = @_;
my (%content);
- open (ARCHIVE, '<', $archive) or fail "$archive: open: $1\n";
+ open (ARCHIVE, '<', $archive) or fail "$archive: open: $!\n";
for (;;) {
my ($header);
if ((my $retval = sysread (ARCHIVE, $header, 512)) != 512) {