diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2005-07-31 18:18:19 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-08-01 06:57:09 +0000 |
| commit | dd3040134608b6ed899c2d38d321ae6d4da4c54a (patch) | |
| tree | 527deb594827ebd0b54ebccf908238db9e940932 /t | |
| parent | 8d13d857deffb84b29dddaec57ad762c5da26bbd (diff) | |
| download | perl-dd3040134608b6ed899c2d38d321ae6d4da4c54a.tar.gz | |
[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
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pack.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index c513a4d940..57c6a648cf 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/; } } |