From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 23 Jan 2000 04:47:25 +0000 (+0000)
Subject: don't warn about masked lexical in C<if (my $x = 1) { my $x; }>,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=43d4d5c68e72a81744de7e89e6fd076b16f00314;p=p5sagit%2Fp5-mst-13.2.git

don't warn about masked lexical in C<if (my $x = 1) { my $x; }>,
C<while (my $x = foo()) { my $x = bar(); }> etc.

p4raw-id: //depot/perl@4847
---

diff --git a/op.c b/op.c
index fc5de55..cdb4b23 100644
--- a/op.c
+++ b/op.c
@@ -2008,12 +2008,11 @@ Perl_block_start(pTHX_ int full)
     int retval = PL_savestack_ix;
 
     SAVEI32(PL_comppad_name_floor);
-    if (full) {
-	if ((PL_comppad_name_fill = AvFILLp(PL_comppad_name)) > 0)
-	    PL_comppad_name_floor = PL_comppad_name_fill;
-	else
-	    PL_comppad_name_floor = 0;
-    }
+    PL_comppad_name_floor = AvFILLp(PL_comppad_name);
+    if (full)
+	PL_comppad_name_fill = PL_comppad_name_floor;
+    if (PL_comppad_name_floor < 0)
+	PL_comppad_name_floor = 0;
     SAVEI32(PL_min_intro_pending);
     SAVEI32(PL_max_intro_pending);
     PL_min_intro_pending = 0;
@@ -2028,8 +2027,6 @@ Perl_block_start(pTHX_ int full)
         PL_compiling.cop_warnings = newSVsv(PL_compiling.cop_warnings) ;
         SAVEFREESV(PL_compiling.cop_warnings) ;
     }
-
-
     return retval;
 }