Don't ignore errors from an eval.
Nicholas Clark [Thu, 9 Jun 2005 10:36:40 +0000 (10:36 +0000)]
p4raw-id: //depot/perl@24777

t/op/pack.t

index a41ef8d..c513a4d 100755 (executable)
@@ -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") {