sv_magic((SV*)GvIOp(handle), obj, 'q', Nullch, 0);
MP_INLINE void modperl_io_handle_tie(pTHX_ GV *handle,                                     char *classname, void *ptr){    SV *obj = modperl_ptr2obj(aTHX_ classname, ptr);    if (mg_find((SV*)handle, 'q')) {        modperl_io_handle_untie(aTHX_ handle);    }    sv_magic((SV*)handle, obj, 'q', Nullch, 0);    MP_TRACE_g(MP_FUNC, "tie *%s(0x%lx) => %s, REFCNT=%d\n",               GvNAME(handle), (unsigned long)handle, classname,               SvREFCNT((SV*)handle));}