From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 2 Mar 2000 04:45:37 +0000 (+0000)
Subject: avoid useless comparison
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1127039a4731c62b5ab628a952e8671c3be5e918;p=p5sagit%2Fp5-mst-13.2.git

avoid useless comparison

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

diff --git a/op.c b/op.c
index ed5a7eb..9a3a187 100644
--- a/op.c
+++ b/op.c
@@ -173,7 +173,7 @@ Perl_pad_allocmy(pTHX_ char *name)
 	    }
 	}
 	if (PL_in_my == KEY_our) {
-	    while (off >= 0 && off <= top) {
+	    while (off <= top) {
 		if ((sv = svp[off])
 		    && sv != &PL_sv_undef
 		    && ((SvFLAGS(sv) & SVpad_OUR) && GvSTASH(sv) == ourstash)