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:
9352101
)
make t/op/pack.t not explode when u64size=''
author
Alexander Gough
<alex-p5p@earth.li>
Mon, 8 Oct 2007 16:09:35 +0000
(17:09 +0100)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Mon, 8 Oct 2007 15:59:55 +0000
(15:59 +0000)
Message-ID: <
20071008150935
.GE24241@the.earth.li>
p4raw-id: //depot/perl@32072
t/op/pack.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/pack.t
b/t/op/pack.t
index
ef88540
..
9312646
100755
(executable)
--- a/
t/op/pack.t
+++ b/
t/op/pack.t
@@
-43,7
+43,7
@@
if ($no_signedness) {
}
for my $size ( 16, 32, 64 ) {
- if (defined $Config{"u${size}size"} and
$Config{"u${size}size"}
!= ($size >> 3)) {
+ if (defined $Config{"u${size}size"} and
($Config{"u${size}size"}||0)
!= ($size >> 3)) {
push @valid_errors, qr/^Perl_my_$maybe_not_avail$size\(\) not available/;
}
}