From 8716503d4f67eab8980805177dcbdf2c897aa42e Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Thu, 16 Jan 2003 17:12:37 +0000 Subject: Re: difference between my and our before introduction Message-ID: <20030116171237.C420@fdgroup.com> (with a small test tweak) p4raw-id: //depot/perl@18571 --- pad.c | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'pad.c') diff --git a/pad.c b/pad.c index 0eea55c318..09dd568cd2 100644 --- a/pad.c +++ b/pad.c @@ -552,13 +552,8 @@ Perl_pad_findmy(pTHX_ char *name) continue; } else { - if ( - ( seq > (U32)I_32(SvNVX(sv)) /* min */ - && seq <= (U32)SvIVX(sv)) /* max */ - || - /* 'our' is visible before introduction */ - (!SvIVX(sv) && (SvFLAGS(sv) & SVpad_OUR)) - ) + if ( seq > (U32)I_32(SvNVX(sv)) /* min */ + && seq <= (U32)SvIVX(sv)) /* max */ return off; } } -- cgit v1.2.1