From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sun, 23 Jun 1996 07:35:03 +0000 (+0000)
Subject: Fix overeager integer optimization
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a3fa9e6ff58affcb7dda23f35f728731510e354;p=p5sagit%2Fp5-mst-13.2.git

Fix overeager integer optimization
---

diff --git a/op.c b/op.c
index b61d387..d56ed9a 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;
 		}