From 39512eadfecf8b79ff1cde8b785c972e12f401b2 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Mon, 13 Aug 2012 19:02:17 +1000
Subject: [PATCH] fix C89 and non-threaded builds

---
 Imager.xs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Imager.xs b/Imager.xs
index 2c3695f2..e9e63519 100644
--- a/Imager.xs
+++ b/Imager.xs
@@ -4066,8 +4066,8 @@ im_context_DESTROY(ctx)
 void
 im_context_CLONE(...)
     CODE:
-      (void)items;
       MY_CXT_CLONE;
+      (void)items;
       /* the following sv_setref_pv() will free this inc */
       im_context_refinc(MY_CXT.ctx, "CLONE");
       MY_CXT.ctx = im_context_clone(MY_CXT.ctx, "CLONE");
@@ -4078,9 +4078,11 @@ im_context_CLONE(...)
 BOOT:
         PERL_SET_GLOBAL_CALLBACKS;
 	PERL_PL_SET_GLOBAL_CALLBACKS;
+#ifdef PERL_IMPLICIT_CONTEXT
 	{
           MY_CXT_INIT;
 	  (void)MY_CXT;
 	}
+#endif
 	start_context(aTHX);
 	im_get_context = perl_get_context;
-- 
2.39.5