This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid warning
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 6 Mar 2000 03:29:11 +0000 (03:29 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 6 Mar 2000 03:29:11 +0000 (03:29 +0000)
p4raw-id: //depot/perl@5563

pp.c

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