From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 9 Jun 2005 10:36:40 +0000 (+0000)
Subject: Don't ignore errors from an eval.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b72c5e4bad2968d5855406da5849c115d1a7562;p=p5sagit%2Fp5-mst-13.2.git

Don't ignore errors from an eval.

p4raw-id: //depot/perl@24777
---

diff --git a/t/op/pack.t b/t/op/pack.t
index a41ef8d..c513a4d 100755
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -1353,6 +1353,7 @@ SKIP: {
 	     my $p = eval { pack $junk1, @list2 };
              skip "cannot pack '$type' on this perl", 12
                if is_valid_error($@);
+	     die "pack $junk1 failed: $@" if $@;
 
 	     my $half = int( (length $p)/2 );
 	     for my $move ('', "X$half", "X!$half", 'x1', 'x!8', "x$half") {