dirinfo = newRV_noinc((SV *)newdirinfo);

##</code><code>##

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

##</code><code>##

        hv_store(newdirinfo, "Errors", 6, newRV((SV *)errs), 0);