From 1c6f9d507b8cc8057066a0db7fc35103d491a9f7 Mon Sep 17 00:00:00 2001
From: Derrik Pates <demon@now.ai>
Date: Fri, 29 Jul 2011 13:12:50 -0600
Subject: [PATCH] Perl 5.8.9 worked before this update; 5.8.8 did not. Account
 for that.

---
 Fuse.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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);
-- 
2.20.1