fix bogus redeclaration warning for "our" variables in different

scopes

p4raw-id: //depot/perl@6137

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 3275d0eabf..6e77fde587 100644
--- a/op.c
+++ b/op.c
@@ -162,6 +162,7 @@ Perl_pad_allocmy(pTHX_ char *name)
 	    do {
 		if ((sv = svp[off])
 		    && sv != &PL_sv_undef
+		    && (SvIVX(sv) == PAD_MAX || SvIVX(sv) == 0)
 		    && ((SvFLAGS(sv) & SVpad_OUR) && GvSTASH(sv) == ourstash)
 		    && strEQ(name, SvPVX(sv)))
 		{