X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=op.c;h=3d70756fc3dc2a4aa694a1222e0bb4ca2edd4d1f;hb=635bab04a8e9700ca0cd2791a5f46a400e5d5a55;hp=49fd8b0a39e91306de3920778465409ca884f1f9;hpb=074479712f24612219fbc26003f537afc1d45c31;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/op.c b/op.c
index 49fd8b0..3d70756 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);