(no commit message)

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index aec0bc116bbab5d3eddc5461bdd1f98568793551..9df389afe821dc64e115ba2d5302b471d8f256fe 100644 (file)
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -10924,7 +10924,9 @@ Mogrify(ref,...)
             epsilon=argument_list[0].real_reference;
           if (attribute_flag[1] != 0)
             channel=(ChannelType) argument_list[1].integer_reference;
-          (void) PerceptibleImageChannel(image,channel,epsilon,exception);
+          channel_mask=SetImageChannelMask(image,channel);
+          (void) PerceptibleImage(image,epsilon,exception);
+          (void) SetImageChannelMask(image,channel_mask);
           break;
         }
       }