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

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;

-- 
Lady Nancy Astor: If you were my husband, I would flavour your coffee
with poison.
Churchill: Madam - if I were your husband, I would drink it.

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