diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-01-13 22:55:02 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-01-13 22:55:02 +0000 |
| commit | 1393e20655efb4bcc2062605bfe887dd5e634bc1 (patch) | |
| tree | 0bd8c4701b965a4afe3e2876808255d0b1743562 /pp_sys.c | |
| parent | ab3c85350aa85d8f47cd7983fff31f525e769c31 (diff) | |
| download | perl-1393e20655efb4bcc2062605bfe887dd5e634bc1.tar.gz | |
tiearray tweaks
p4raw-id: //depot/ansiperl@420
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -565,7 +565,13 @@ PP(pp_tie) sv = TOPs; if (sv_isobject(sv)) { if (SvTYPE(varsv) == SVt_PVHV || SvTYPE(varsv) == SVt_PVAV) { - sv_unmagic(varsv, 'P'); + sv_unmagic(varsv, 'P'); +#ifdef DEBUGGING + if (SvTYPE(varsv) == SVt_PVAV) { + AV *av = (AV *) varsv; + av_undef(av); + } +#endif sv_magic(varsv, sv, 'P', Nullch, 0); } else { |