From: John E. Malmberg <wb8tyw@qsl.net>
Date: Sun, 31 Jul 2005 22:18:19 +0000 (-0400)
Subject: [patch] blead@25226 - t/op/pack.t undefined value fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd3040134608b6ed899c2d38d321ae6d4da4c54a;p=p5sagit%2Fp5-mst-13.2.git

[patch] blead@25226 - t/op/pack.t undefined value fix
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <42ED866B.3000308@qsl.net>

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

diff --git a/t/op/pack.t b/t/op/pack.t
index c513a4d..57c6a64 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 (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/;
   }
 }