projects
/
perl-fuse.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0bbd563
)
Perl 5.8.9 worked before this update; 5.8.8 did not. Account for that.
author
Derrik Pates
<demon@now.ai>
Fri, 29 Jul 2011 19:12:50 +0000
(13:12 -0600)
committer
Derrik Pates
<demon@now.ai>
Fri, 29 Jul 2011 19:12:50 +0000
(13:12 -0600)
Fuse.xs
patch
|
blob
|
history
diff --git
a/Fuse.xs
b/Fuse.xs
index
b85dd89
..
19d569a
100755
(executable)
--- a/
Fuse.xs
+++ b/
Fuse.xs
@@
-16,7
+16,7
@@
#ifdef USE_ITHREADS
# ifdef I_PTHREAD
# define FUSE_USE_ITHREADS
#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 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) {
#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);
tTHX my_perl = parent;
#endif
dMY_CXT_INTERP(parent);