diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-02-23 01:03:27 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-02-25 13:21:19 +0000 |
| commit | 82d039840b913b4eed10833ac05709a5abd02ead (patch) | |
| tree | ae3a2ac26b28aad8ed1101a8116768f0ecc06da3 /pp_hot.c | |
| parent | cc7dbc11d7cd9ed68bb2fbc677f60586de194a05 (diff) | |
| download | perl-82d039840b913b4eed10833ac05709a5abd02ead.tar.gz | |
Re: [perl #21321] local ${"FOO"} does not work
Message-Id: <20030223000327.6f0c11fa.rgarciasuarez@free.fr>
p4raw-id: //depot/perl@18774
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -685,6 +685,9 @@ PP(pp_rv2av) SETs((SV*)av); RETURN; } + else if (PL_op->op_flags & OPf_MOD + && PL_op->op_private & OPpLVAL_INTRO) + Perl_croak(aTHX_ PL_no_localize_ref); } else { if (SvTYPE(sv) == SVt_PVAV) { @@ -809,6 +812,9 @@ PP(pp_rv2hv) SETs((SV*)hv); RETURN; } + else if (PL_op->op_flags & OPf_MOD + && PL_op->op_private & OPpLVAL_INTRO) + Perl_croak(aTHX_ PL_no_localize_ref); } else { if (SvTYPE(sv) == SVt_PVHV) { |