X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Ftests%2Ftests.pm;h=b12066640015c52def36b7e5e76bff11a758acde;hb=ad711b00de76e004c0240fff288cd734eb1f1492;hp=822e7c9b807c6050f0c48c3dce77d2c03f468f64;hpb=36beb03eba5009ca7054a9b32b966bf211e839b8;p=pintos-anon

diff --git a/src/tests/tests.pm b/src/tests/tests.pm
index 822e7c9..b120666 100644
--- a/src/tests/tests.pm
+++ b/src/tests/tests.pm
@@ -444,6 +444,7 @@ sub print_fs {
 	}
 	print "\n";
     }
+    print "(empty)\n" if !@_;
 }
 
 # normalize_fs (%FS)
@@ -510,7 +511,7 @@ sub flatten_hierarchy {
 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) {