diff options
| author | Shinya Hayakawa <hayakawa@livedoor.jp> | 2004-05-25 09:06:06 +0900 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-05-30 22:31:03 +0000 |
| commit | a62b51b8b5ba4453033358d44b4729c019d6ae42 (patch) | |
| tree | 2d93a9f2023202ff3271a9d4e21f128eab5bc494 /pp_hot.c | |
| parent | d07a55edad6afd25dba740156f34d6ba180fc2b2 (diff) | |
| download | perl-a62b51b8b5ba4453033358d44b4729c019d6ae42.tar.gz | |
Re: my $x->{foo} doesn't work
Message-Id: <200405250006.06387.hayakawa@livedoor.jp>
Allow autovivification of (my $x)->{foo}
p4raw-id: //depot/perl@22874
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -200,7 +200,7 @@ PP(pp_padsv) 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; |