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 (executable)
--- 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") {