From 4a3fa9e6ff58affcb7dda23f35f728731510e354 Mon Sep 17 00:00:00 2001
From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sun, 23 Jun 1996 07:35:03 +0000
Subject: Fix overeager integer optimization

---
 op.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'op.c')

diff --git a/op.c b/op.c
index b61d387b54..d56ed9ad8d 100644
--- a/op.c
+++ b/op.c
@@ -1413,7 +1413,7 @@ register OP *o;
 	for (curop = ((UNOP*)o)->op_first; curop; curop = curop->op_sibling) {
 	    if (curop->op_type == OP_CONST) {
 		if (SvIOK(((SVOP*)curop)->op_sv)) {
-		    if (SvIVX(((SVOP*)curop)->op_sv) < 0 && vars++)
+		    if (SvIVX(((SVOP*)curop)->op_sv) <= 0 && vars++)
 			return o;	/* negatives truncate wrong way, alas */
 		    continue;
 		}
-- 
cgit v1.2.1