From 43d4d5c68e72a81744de7e89e6fd076b16f00314 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 23 Jan 2000 04:47:25 +0000
Subject: 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
---
 op.c | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

(limited to 'op.c')

diff --git a/op.c b/op.c
index fc5de55f4a..cdb4b231b0 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;
 }
 
-- 
cgit v1.2.1