From 5ce0178e8e6a35225316965a9dccd12fa35eb60d Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 28 May 2000 08:46:10 +0000 Subject: fix bogus redeclaration warning for "our" variables in different scopes p4raw-id: //depot/perl@6137 --- op.c | 1 + 1 file changed, 1 insertion(+) (limited to 'op.c') 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))) { -- cgit v1.2.1