Re: Report /pro/3gl/CPAN/perl-5.7.1

Message-ID: <20010528233938.M86445@plum.flirble.org>

More portable non-zero UV.

p4raw-id: //depot/perl@10276

diff --git a/t/lib/extutils.t b/t/lib/extutils.t
index 3d7f56f..cc34740 100644 (file)
--- a/t/lib/extutils.t
+++ b/t/lib/extutils.t
@@ -35,7 +35,7 @@ my @names = ("THREE", {name=>"OK4", type=>"PV",},
              {name=>"OK5", type=>"PVN",
               value=>['"not ok 5\\n\\0ok 5\\n"', 15]},
              {name => "FARTHING", type=>"NV"},
-             {name => "NOT_ZERO", type=>"UV", value=>~0 . "u"});
+             {name => "NOT_ZERO", type=>"UV", value=>"~(UV)0"});
 
 my @names_only = map {(ref $_) ? $_->{name} : $_} @names;