This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
184499a
)
Don't ignore errors from an eval.
author
Nicholas Clark
<nick@ccl4.org>
Thu, 9 Jun 2005 10:36:40 +0000
(10:36 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Thu, 9 Jun 2005 10:36:40 +0000
(10:36 +0000)
p4raw-id: //depot/perl@24777
t/op/pack.t
patch
|
blob
|
blame
|
history
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") {