diff options
author | Andy Lester <andy@petdance.com> | 2005-12-05 07:46:13 -0600 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-06 17:23:09 +0000 |
commit | 0bd48802b00657d8da2da444a1c97fb25cb7d562 (patch) | |
tree | 0843dbed7bc7b59e6c3926ed70780c7e9ae79a34 /pp_sys.c | |
parent | 05f9f7bb7728f3c6ba669b2c4adc66fe958a9b51 (diff) | |
download | perl-0bd48802b00657d8da2da444a1c97fb25cb7d562.tar.gz |
More consting, and putting stuff in embed.fnc
Message-ID: <20051205194613.GB7791@petdance.com>
p4raw-id: //depot/perl@26281
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -877,9 +877,9 @@ PP(pp_untie) if ((mg = SvTIED_mg(sv, how))) { SV * const obj = SvRV(SvTIED_obj(sv, mg)); - CV *cv = NULL; if (obj) { GV * const gv = gv_fetchmethod_autoload(SvSTASH(obj), "UNTIE", FALSE); + CV *cv; if (gv && isGV(gv) && (cv = GvCV(gv))) { PUSHMARK(SP); XPUSHs(SvTIED_obj((SV*)gv, mg)); |