X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=Fuse.xs;h=19d569a1c1d9eb1d2ae33e33ed70aaa36dcbcb37;hb=1c6f9d507b8cc8057066a0db7fc35103d491a9f7;hp=b85dd899e1b4fdef101d187bdb8ab4fd32bde725;hpb=c7b0fbdc630964d006490408a0087effae9174e4;p=perl-fuse.git diff --git a/Fuse.xs b/Fuse.xs index b85dd89..19d569a 100755 --- a/Fuse.xs +++ b/Fuse.xs @@ -16,7 +16,7 @@ #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) @@ -62,7 +62,7 @@ tTHX master_interp = NULL; #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);