sv_setsv(dirinfo, sv_2mortal(newRV_noinc((SV *)newdirinfo)));