From ecc50c27935557e705a7fd4590073f9dcfae0b17 Mon Sep 17 00:00:00 2001
From: Ben Pfaff <blp@cs.stanford.edu>
Date: Fri, 8 Dec 2006 15:29:58 +0000
Subject: [PATCH] Fix error message when archive fails to open.

---
 src/tests/tests.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/tests/tests.pm b/src/tests/tests.pm
index 822e7c9..179f110 100644
--- a/src/tests/tests.pm
+++ b/src/tests/tests.pm
@@ -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) {
-- 
2.30.2