This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make t/op/pack.t not explode when u64size=''
[perl5.git] / t / op / pack.t
index ef88540..9312646 100755 (executable)
@@ -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/;
   }
 }