From: cristy <urban-warrior@git.imagemagick.org>
Date: Mon, 13 Apr 2015 20:06:25 +0000 (+0000)
Subject: (no commit message)
X-Git-Tag: 7.0.1-0~1108
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=932cb0746174226d7aa24f6078d3fc8828c738e0;p=imagemagick

---

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index 14ccc3e16..165a7f95e 100644
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -5356,7 +5356,7 @@ Get(ref,...)
               if (image == (Image *) NULL)
                 continue;
               j=info ? info->image_info->monochrome :
-                IsImageMonochrome(image,exception);
+                SetImageMonochrome(image,exception);
               s=newSViv(j);
               PUSHs(s ? sv_2mortal(s) : &sv_undef);
               continue;
diff --git a/PerlMagick/quantum/quantum.xs.in b/PerlMagick/quantum/quantum.xs.in
index 99dcf1fe7..a87f09a71 100644
--- a/PerlMagick/quantum/quantum.xs.in
+++ b/PerlMagick/quantum/quantum.xs.in
@@ -5356,7 +5356,7 @@ Get(ref,...)
               if (image == (Image *) NULL)
                 continue;
               j=info ? info->image_info->monochrome :
-                IsImageMonochrome(image,exception);
+                SetImageMonochrome(image,exception);
               s=newSViv(j);
               PUSHs(s ? sv_2mortal(s) : &sv_undef);
               continue;