diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-06-09 10:36:40 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-06-09 10:36:40 +0000 |
| commit | 9b72c5e4bad2968d5855406da5849c115d1a7562 (patch) | |
| tree | cd9e174081c138a041e7fd279fa430da4f405458 /t | |
| parent | 184499a4602df8db11cc21d3722c3594137afffe (diff) | |
| download | perl-9b72c5e4bad2968d5855406da5849c115d1a7562.tar.gz | |
Don't ignore errors from an eval.
p4raw-id: //depot/perl@24777
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pack.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index a41ef8d124..c513a4d940 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") { |