Re: my $x->{foo} doesn't work

Hi,

On Friday 21 May 2004 6:29 pm, Dave Mitchell wrote:
> The patch incorrectly removes introduction:
>
>     for (1..4) {
> 	(my $x)->{foo} = 1;
> 	print "$_: already exists!!\n" if exists $x->{bar};
> 	$x->{bar} = 1;
>     }
>
> with the patch outputs:
>
>     2: already exists!!
>     3: already exists!!
>     4: already exists!!

Thanks.
I rewrote the patch as follows.

--- pp_hot.c.orig       2004-05-21 10:49:37.000000000 +0900
+++ pp_hot.c    2004-05-21 18:43:46.000000000 +0900
@@ -204,7 +204,7 @@
     if (PL_op->op_flags & OPf_MOD) {
        if (PL_op->op_private & OPpLVAL_INTRO)
            SAVECLEARSV(PAD_SVl(PL_op->op_targ));
-        else if (PL_op->op_private & OPpDEREF) {
+        if (PL_op->op_private & OPpDEREF) {
            PUTBACK;
            vivify_ref(PAD_SVl(PL_op->op_targ), PL_op->op_private & OPpDEREF);
            SPAGAIN;



-- 
Shinya Hayakawa
hayakawa@livedoor.jp

• my $x->{foo} doesn't work by tetryl
• Re: my $x->{foo} doesn't work by Rafael Garcia-Suarez
• ++(my $x = {}) [Was: Re: my $x->{foo} doesn't work] by Dan Kogai
• Re: ++(my $x = {}) [Was: Re: my $x->{foo} doesn't work] by Dan Kogai
• Re: ++(my $x = {}) [Was: Re: my $x->{foo} doesn't work] by Ronald J Kimball
• Re: ++(my $x = {}) [Was: Re: my $x->{foo} doesn't work] by Ronald J Kimball
• Re: ++(my $x = {}) [Was: Re: my $x->{foo} doesn't work] by Dan Kogai
• Re: my $x->{foo} doesn't work by Shinya Hayakawa
• Re: my $x->{foo} doesn't work by Elizabeth Mattijsen
• Re: my $x->{foo} doesn't work by Dave Mitchell
• Re: my $x->{foo} doesn't work by Rafael Garcia-Suarez
• Re: my $x->{foo} doesn't work by Dave Mitchell
• Re: my $x->{foo} doesn't work by Shinya Hayakawa
• Re: my $x->{foo} doesn't work by hv
• Re: my $x->{foo} doesn't work by Shinya Hayakawa
• Re: my $x->{foo} doesn't work by Dave Mitchell
• Re: my $x->{foo} doesn't work by Rafael Garcia-Suarez