diff options
| author | Brandon Black <blblack@gmail.com> | 2007-06-27 05:07:54 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-28 06:32:01 +0000 |
| commit | 5be5c7a687aa37f2ea9dec7988eb57cad1f1ec24 (patch) | |
| tree | 99d8d6a8bdf7da9c442f53ad4ea7ffb2d72e9f48 /sv.c | |
| parent | 09576c7db8c59458f52d7746e7f4062d64ff34e7 (diff) | |
| download | perl-5be5c7a687aa37f2ea9dec7988eb57cad1f1ec24.tar.gz | |
Re: [perl #43357] *DESTROY = sub {} at runtime
From: "Brandon Black" <blblack@gmail.com>
Message-ID: <84621a60706270807r7af65546x8d959b131ffa28e6@mail.gmail.com>
p4raw-id: //depot/perl@31489
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -4397,6 +4397,7 @@ Perl_sv_magicext(pTHX_ SV* sv, SV* obj, int how, const MGVTBL *vtable, */ if (!obj || obj == sv || how == PERL_MAGIC_arylen || + how == PERL_MAGIC_isaelem || how == PERL_MAGIC_qr || how == PERL_MAGIC_symtab || (SvTYPE(obj) == SVt_PVGV && |