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

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


-- 
Michael G Schwern     schwern@pobox.com     http://www.pobox.com/~schwern
'All anyone gets in a mirror is themselves,' she said. 'But what you
gets in a good gumbo is everything.'
	-- "Witches Abroad" by Terry Prachett

• [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