From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 6 Mar 2000 03:29:11 +0000 (+0000)
Subject: avoid warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=beccb14cab66f75e33e409a80fccc6cd1a636e4d;p=p5sagit%2Fp5-mst-13.2.git

avoid warning

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

diff --git a/pp.c b/pp.c
index 300b20f..01a90e2 100644
--- a/pp.c
+++ b/pp.c
@@ -1398,7 +1398,7 @@ PP(pp_negate)
 		    RETURN;
 		}
 		else if (SvUVX(sv) <= IV_MAX) {
-		    SETi(-SvUVX(sv));
+		    SETi(-SvIVX(sv));
 		    RETURN;
 		}
 	    }