This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[patch] blead@25226 - t/op/pack.t undefined value fix
authorJohn E. Malmberg <wb8tyw@qsl.net>
Sun, 31 Jul 2005 22:18:19 +0000 (18:18 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 1 Aug 2005 06:57:09 +0000 (06:57 +0000)
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <42ED866B.3000308@qsl.net>

p4raw-id: //depot/perl@25249

t/op/pack.t

index c513a4d..57c6a64 100755 (executable)
@@ -43,7 +43,7 @@ if ($no_signedness) {
 }
 
 for my $size ( 16, 32, 64 ) {
-  if (exists $Config{"u${size}size"} and $Config{"u${size}size"} != ($size >> 3)) {
+  if (defined $Config{"u${size}size"} and $Config{"u${size}size"} != ($size >> 3)) {
     push @valid_errors, qr/^Perl_my_$maybe_not_avail$size\(\) not available/;
   }
 }