From: Tony Cook <tony@develop-help.com>
Date: Mon, 1 Jul 2013 12:15:42 +0000 (+1000)
Subject: fix a format string error introduced in the XS re-work
X-Git-Tag: v0.96_01~4
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/b6565be66d03f4264b0cc31ce9172e64c235a70b

fix a format string error introduced in the XS re-work
---

diff --git a/Imager.xs b/Imager.xs
index faab38dd..216bfb48 100644
--- a/Imager.xs
+++ b/Imager.xs
@@ -147,7 +147,7 @@ calloc_temp(pTHX_ size_t size) {
 static i_color
 S_sv_to_i_color(pTHX_ SV *sv, const char *pname) {
   if (!sv_derived_from(sv, "Imager::Color")) {
-    croak("%s: not a color object");
+    croak("%s: not a color object", pname);
   }
   return *INT2PTR(i_color *, SvIV((SV *)SvRV(sv)));
 }