From: Tony Cook <tony@develop-help.com>
Date: Mon, 13 Aug 2012 00:37:32 +0000 (+1000)
Subject: remove more unused variable warnings
X-Git-Tag: v0.92_01~29
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/5d5256e9b0d8e3bfc13c579f42e582052e9d08ba

remove more unused variable warnings
---

diff --git a/Imager.xs b/Imager.xs
index 8d680e91..13b53532 100644
--- a/Imager.xs
+++ b/Imager.xs
@@ -4062,6 +4062,7 @@ im_context_DESTROY(ctx)
 void
 im_context_CLONE(...)
     CODE:
+      (void)items;
       MY_CXT_CLONE;
       /* the following sv_setref_pv() will free this inc */
       im_context_refinc(MY_CXT.ctx, "CLONE");
@@ -4073,6 +4074,9 @@ im_context_CLONE(...)
 BOOT:
         PERL_SET_GLOBAL_CALLBACKS;
 	PERL_PL_SET_GLOBAL_CALLBACKS;
-        MY_CXT_INIT;
+	{
+          MY_CXT_INIT;
+	  (void)MY_CXT;
+	}
 	start_context(aTHX);
 	im_get_context = perl_get_context;