diff options
| author | Stephen McCamant <smcc@mit.edu> | 1998-07-21 11:12:25 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-22 02:45:55 +0000 |
| commit | 0ebe003824736fdbe73467ef153a40f1d6fc4b92 (patch) | |
| tree | d03b8ba3f3108ffdc4bef2927b4e3ffc0fab0ae8 /pp_hot.c | |
| parent | 81009501838bbdb5cbd808a07c703b194ef32869 (diff) | |
| download | perl-0ebe003824736fdbe73467ef153a40f1d6fc4b92.tar.gz | |
applied patch, add new message to perldeta
Message-Id: <13749.910.83378.949909@alias-2.pr.mcs.net>
Subject: [PATCH] Band-aid patch for local($avhv->{a})
p4raw-id: //depot/perl@1619
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1337,6 +1337,8 @@ PP(pp_helem) svp = he ? &HeVAL(he) : 0; } else if (SvTYPE(hv) == SVt_PVAV) { + if (PL_op->op_private & OPpLVAL_INTRO) + DIE("Can't localize pseudo-hash element"); svp = avhv_fetch_ent((AV*)hv, keysv, lval && !defer, 0); } else { |