projects
/
pintos-anon
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
When printing a directory tree, indicate explicitly if it's empty.
[pintos-anon]
/
src
/
tests
/
tests.pm
diff --git
a/src/tests/tests.pm
b/src/tests/tests.pm
index 822e7c9b807c6050f0c48c3dce77d2c03f468f64..b12066640015c52def36b7e5e76bff11a758acde 100644
(file)
--- a/
src/tests/tests.pm
+++ b/
src/tests/tests.pm
@@
-444,6
+444,7
@@
sub print_fs {
}
print "\n";
}
}
print "\n";
}
+ print "(empty)\n" if !@_;
}
# normalize_fs (%FS)
}
# normalize_fs (%FS)
@@
-510,7
+511,7
@@
sub flatten_hierarchy {
sub read_tar {
my ($archive) = @_;
my (%content);
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) {
for (;;) {
my ($header);
if ((my $retval = sysread (ARCHIVE, $header, 512)) != 512) {