diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-05-26 20:10:42 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-05-26 20:10:42 +0000 |
| commit | 5dc0d6134ebb76636f69238201dde15cec972fd0 (patch) | |
| tree | 3f466c13b594ff662ce13454c90ecf35572088ea /hv.c | |
| parent | 5bc6513ddd9360f3cbfa6bf29425e38b658230f5 (diff) | |
| parent | 9ed32d99bcab50ff8df392e9741dd3de08a596a4 (diff) | |
| download | perl-5dc0d6134ebb76636f69238201dde15cec972fd0.tar.gz | |
Integrate thrperl 5.003->5.004.
p4raw-id: //depot/perl@24
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -100,6 +100,7 @@ I32 lval; if (SvRMAGICAL(hv)) { if (mg_find((SV*)hv,'P')) { + dTHR; sv = sv_newmortal(); mg_copy((SV*)hv, sv, key, klen); Sv = sv; @@ -511,6 +512,7 @@ U32 klen; if (SvRMAGICAL(hv)) { if (mg_find((SV*)hv,'P')) { + dTHR; sv = sv_newmortal(); mg_copy((SV*)hv, sv, key, klen); magic_existspack(sv, mg_find(sv, 'p')); |