(no commit message)

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index 45f2a3ce84b423d7c5e4891be127cadf384f294e..ca5181452aaddea62c749e16b071fc1ba0cf8dcb 100644 (file)
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -10227,7 +10227,7 @@ Mogrify(ref,...)
           if (attribute_flag[1] != 0)
             channel=(ChannelType) argument_list[1].integer_reference;
           PushPixelChannelMap(image,channel);
-          (void) ClutImage(image,argument_list[0].image_reference);
+          (void) ClutImage(image,argument_list[0].image_reference,exception);
           PopPixelChannelMap(image);
           break;
         }