[perl #7615] (if|unless) ( local ... ) not undone

On Sat Sep 10 14:08:31 2005, schwern wrote:
> On Fri, Aug 26, 2005 at 09:06:50AM -0700, Steve Peters via RT wrote:
> > > $a = 10;
> > > if (local $a = 1){
> > > }
> > > print $a; # Should be 10, not 1
> 
> Still busted in 5.8.6 and blead.
> 
> $ bleadperl -wle '$a = 10;  if( local $a = 1 ) {}  print $a'
> Found = in conditional, should be == at -e line 1.
> 1
> $ bleadperl -wle '$a = 10;  if( my $a = 1 ) {}  print $a'
> Found = in conditional, should be == at -e line 1.
> 10
> 
> 

And still busted in 5.16.0.



---
via perlbug:  queue: perl5 status: open
https://rt.perl.org:443/rt3/Ticket/Display.html?id=7615

• [perl #7615] (if|unless) ( local ... ) not undone by Mike Guy
• [perl #7615] (if|unless) ( local ... ) not undone by Steve Peters via RT
• [perl #7615] (if|unless) ( local ... ) not undone by Steve Peters via RT
• Re: [perl #7615] (if|unless) ( local ... ) not undone by Michael G Schwern
• [perl #7615] (if|unless) ( local ... ) not undone by James E Keenan via RT
• Re: [perl #7615] (if|unless) ( local ... ) not undone by Dave Mitchell
• Re: [perl #7615] (if|unless) ( local ... ) not undone by Jesse Luehrs
• Re: [perl #7615] (if|unless) ( local ... ) not undone by Ronald J Kimball