diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-12 18:44:27 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-12 18:44:27 +0000 |
| commit | 65eba18fa4db1d6a117170ee75351b16dc792fca (patch) | |
| tree | 347c0dc32c5dca4eabb5bcee9cb6bdce3e14d096 /pp_sys.c | |
| parent | ed1af28e435c4f4992490e18b640d9daa5b5326a (diff) | |
| download | perl-65eba18fa4db1d6a117170ee75351b16dc792fca.tar.gz | |
A better patch from Yitzchak Scott-Thoennes for [perl #23287].
p4raw-id: //depot/perl@20660
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -860,8 +860,8 @@ PP(pp_untie) if (SvTYPE(sv) == SVt_PVGV && !(sv = (SV *)GvIOp(sv))) RETPUSHYES; - if ((mg = SvTIED_mg(sv, how)) && mg->mg_obj) { - SV *obj = SvRV(mg->mg_obj); + if ((mg = SvTIED_mg(sv, how))) { + SV *obj = SvRV(SvTIED_obj(sv, mg)); GV *gv; CV *cv = NULL; if (obj) { |