summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-03-02 04:45:37 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-03-02 04:45:37 +0000
commit1127039a4731c62b5ab628a952e8671c3be5e918 (patch)
tree28d0d2c4485006ea7d5fc88b7278aee69b20ed90 /op.c
parent0e4548d56d31eb2bfd3d2eda89451b006c407418 (diff)
downloadperl-1127039a4731c62b5ab628a952e8671c3be5e918.tar.gz
avoid useless comparison
p4raw-id: //depot/perl@5436
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index ed5a7eb510..9a3a187004 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)