Fix error message when archive fails to open.
authorBen Pfaff <blp@cs.stanford.edu>
Fri, 8 Dec 2006 15:29:58 +0000 (15:29 +0000)
committerBen Pfaff <blp@cs.stanford.edu>
Fri, 8 Dec 2006 15:29:58 +0000 (15:29 +0000)
src/tests/tests.pm

index 822e7c9b807c6050f0c48c3dce77d2c03f468f64..179f110a9f986d75481f18ab950545f0e18c242e 100644 (file)
@@ -510,7 +510,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) {