#ifdef USE_ITHREADS
# ifdef I_PTHREAD
# define FUSE_USE_ITHREADS
-# if (PERL_VERSION < 10)
+# if (PERL_VERSION < 8) || (PERL_VERSION == 8 && PERL_SUBVERSION < 9)
# 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 CLONE_INTERP(parent) S_clone_interp(parent)
tTHX S_clone_interp(tTHX parent) {
-#if (PERL_VERSION < 10)
+# if (PERL_VERSION < 8) || (PERL_VERSION == 8 && PERL_SUBVERSION < 9)
tTHX my_perl = parent;
#endif
dMY_CXT_INTERP(parent);
{
CLONE_PARAMS *clone_param;
#if (PERL_VERSION > 13) || (PERL_VERSION == 13 && PERL_SUBVERSION >= 2)
- clone_param = clone_params_new(parent, aTHX);
+ clone_param = Perl_clone_params_new(parent, aTHX);
#else
CLONE_PARAMS raw_param;
raw_param.flags = 0;
}
MY_CXT.handles = (HV*)sv_dup((SV*)MY_CXT.handles, clone_param);
#if (PERL_VERSION > 13) || (PERL_VERSION == 13 && PERL_SUBVERSION >= 2)
- clone_params_del(clone_param);
+ Perl_clone_params_del(clone_param);
#endif
}
#endif