avoid warning

p4raw-id: //depot/perl@5563

diff --git a/pp.c b/pp.c
index 300b20f..01a90e2 100644 (file)
--- 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;
                }
            }