Re: [perl #79908] my $x; sub(){$x} makes a constant even if $xchanges

On 2010-11-29 10:22, Dave Mitchell wrote:
> On Sun, Nov 28, 2010 at 05:16:28PM -0800, Father Chrysostomos wrote:

>> I know this is what constant.pm used to use, but it causes a bug:
>
> What do you think is the bug? It seems to be behaving the way I expect.
>
>> $ perl -MO=Deparse -e' BEGIN{my $x = 5; *foo = sub(){$x}; $x=6} print foo'
>> sub BEGIN {
>>      my $x = 5;
>>      *foo = sub () {
>>          $x;
>>      }
>>      ;
>>      $x = 6;
>> }
>> print 5;

The compiler should patch the constsub at the '$x = 6' line.

-- 
Ruud

• [perl #79908] my $x; sub(){$x} makes a constant even if $x changes by Father Chrysostomos
• Re: [perl #79908] my $x; sub(){$x} makes a constant even if $xchanges by Dave Mitchell
• Re: [perl #79908] my $x; sub(){$x} makes a constant even if $xchanges by Dr.Ruud
• Re: [perl #79908] my $x; sub(){$x} makes a constant even if$xchanges by Abigail
• Re: [perl #79908] my $x; sub(){$x} makes a constant even if$xchanges by Dr.Ruud
• Re: [perl #79908] my $x; sub(){$x} makes a constant evenif$xchanges by Abigail
• Re: [perl #79908] my $x; sub(){$x} makes a constant evenif$xchanges by Dr.Ruud
• Re: [perl #79908] my $x; sub(){$x} makes a constant even if $xchanges by Zefram
• Re: [perl #79908] my $x; sub(){$x} makes a constant even if $x changes by Reini Urban
• Re: [perl #79908] my $x; sub(){$x} makes a constant even if $x changes by demerphq
• Re: [perl #79908] my $x; sub(){$x} makes a constant even if $x changes by Reini Urban
• Re: [perl #79908] my $x; sub(){$x} makes a constant even if $x changes by Eric Brine
• Re: [perl #79908] my $x; sub(){$x} makes a constant even if $x changes by Eirik Berg Hanssen
• Re: [perl #79908] my $x; sub(){$x} makes a constant even if $x changes by Leon Timmermans