diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-05-25 21:19:38 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-05-25 21:19:38 +0000 |
| commit | 97fcbf9696d4cdc3d47f383b99d9840ccb39c616 (patch) | |
| tree | db7f5a92355aa3402f174a0065ca2542147c15ee /pp_hot.c | |
| parent | ae77835f9b08444f73b593d4cdc0758132dbbf00 (diff) | |
| download | perl-97fcbf9696d4cdc3d47f383b99d9840ccb39c616.tar.gz | |
Fix up integration 5.003->5.004.
p4raw-id: //depot/perl@19
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -1271,17 +1271,16 @@ PP(pp_helem) if (SvTYPE(hv) == SVt_PVHV) { he = hv_fetch_ent(hv, keysv, lval && !defer, 0); - svp = he ? &Heval(he) : 0; + svp = he ? &HeVAL(he) : 0; } else if (SvTYPE(hv) == SVt_PVAV) { - svp = avhv_fetch_ent((AV*)hv, keysv, lval); + svp = avhv_fetch_ent((AV*)hv, keysv, lval && !defer, 0); } else { RETPUSHUNDEF; } -<<<< if (lval) { - if (svp || *svp == &sv_undef) { + if (!svp || *svp == &sv_undef) { SV* lv; SV* key2; if (!defer) |