From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 28 May 2001 23:39:38 +0000 (+0100)
Subject: Re: Report /pro/3gl/CPAN/perl-5.7.1
X-Git-Tag: accepted/trunk/20130322.191538~31793
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=7abfcde3a6a1fb58aed2939f97b94273ef31d507;p=platform%2Fupstream%2Fperl.git

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
--- 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;