sv_unmagic((SV*)GvIOp(handle), 'q');
MP_INLINE void modperl_io_handle_untie(pTHX_ GV *handle){    sv_unmagic((SV*)handle, 'q');    MP_TRACE_g(MP_FUNC, "untie *%s(0x%lx), REFCNT=%d\n",               GvNAME(handle), (unsigned long)handle,               SvREFCNT((SV*)handle));}