From ecc50c27935557e705a7fd4590073f9dcfae0b17 Mon Sep 17 00:00:00 2001 From: Ben Pfaff 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