From: Alexander Gough <alex-p5p@earth.li>
Date: Mon, 8 Oct 2007 16:09:35 +0000 (+0100)
Subject: make t/op/pack.t not explode when u64size=''
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=49fe901c1efedb12a813df95fabefadf85b99a41;p=p5sagit%2Fp5-mst-13.2.git

make t/op/pack.t not explode when u64size=''
Message-ID: <20071008150935.GE24241@the.earth.li>

p4raw-id: //depot/perl@32072
---

diff --git a/t/op/pack.t b/t/op/pack.t
index ef88540..9312646 100755
--- 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/;
   }
 }