Allen <allen@huarp.harvard.edu>)
p4raw-id: //depot/perl@5710
}
}
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)
"(Did you mean \"local\" instead of \"our\"?)\n");
break;
}
- --off;
- }
+ } while ( off-- > 0 );
}
}
off = pad_alloc(OP_PADSV, SVs_PADMY);