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

diff --git a/Imager.xs b/Imager.xs
index faab38ddd61ff50643d1ad435499846a54f87814..216bfb4813bc3aa6bba969ff9d7096d6581fd8f1 100644 (file)
--- 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)));
 }