Re: difference between my and our before introduction

Message-ID: <20030116171237.C420@fdgroup.com>
(with a small test tweak)

p4raw-id: //depot/perl@18571

1 files changed, 2 insertions, 7 deletions

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;
 	}
     }