From a62b51b8b5ba4453033358d44b4729c019d6ae42 Mon Sep 17 00:00:00 2001 From: Shinya Hayakawa Date: Tue, 25 May 2004 09:06:06 +0900 Subject: 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 --- pp_hot.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index d02bf96d0e..c3ce802e3c 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -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; -- cgit v1.2.1