# define tTHX PerlInterpreter*
# define STR_WITH_LEN(s) ("" s ""), (sizeof(s)-1)
# define hv_fetchs(hv,key,lval) Perl_hv_fetch(aTHX_ hv, STR_WITH_LEN(key), lval)
# define tTHX PerlInterpreter*
# define STR_WITH_LEN(s) ("" s ""), (sizeof(s)-1)
# define hv_fetchs(hv,key,lval) Perl_hv_fetch(aTHX_ hv, STR_WITH_LEN(key), lval)