fix C89 and non-threaded builds
authorTony Cook <tony@develop-help.com>
Mon, 13 Aug 2012 09:02:17 +0000 (19:02 +1000)
committerTony Cook <tony@develop-help.com>
Sat, 24 Nov 2012 03:59:24 +0000 (14:59 +1100)
Imager.xs

index 2c3695f..e9e6351 100644 (file)
--- 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;