From 635bab04a8e9700ca0cd2791a5f46a400e5d5a55 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Mon, 13 Mar 2000 20:46:37 +0000 Subject: cleaner logic in op.c, also avoids QNX optimizer bug (from Norton Allen ) p4raw-id: //depot/perl@5710 --- op.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/op.c b/op.c index 49fd8b0a39..3d70756fc3 100644 --- a/op.c +++ b/op.c @@ -159,7 +159,7 @@ Perl_pad_allocmy(pTHX_ char *name) } } if (PL_in_my == KEY_our) { - while (off <= top) { + do { if ((sv = svp[off]) && sv != &PL_sv_undef && ((SvFLAGS(sv) & SVpad_OUR) && GvSTASH(sv) == ourstash) @@ -171,8 +171,7 @@ Perl_pad_allocmy(pTHX_ char *name) "(Did you mean \"local\" instead of \"our\"?)\n"); break; } - --off; - } + } while ( off-- > 0 ); } } off = pad_alloc(OP_PADSV, SVs_PADMY); -- cgit v1.2.1