(no commit message)

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index 155237c859c87d88f7ca2d657930a78d9008469e..782ff09ba5aec2f3b9d05e2091518c94126634de 100644 (file)
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -8345,12 +8345,14 @@ Mogrify(ref,...)
                /*
                  Rotate image.
                */
-               rotate_image=RotateImage(composite_image,
-                 argument_list[8].real_reference,exception);
+               rotate_image=DistortImage(composite_image,
+                 ScaleRotateTranslateDistortion,1,
+                 &argument_list[8].real_reference,MagickTrue,exception);
                if (rotate_image == (Image *) NULL)
                  break;
             }
-          if (attribute_flag[7] && argument_list[7].integer_reference) /* tile */
+          if ((attribute_flag[7] != 0) &&
+              (argument_list[7].integer_reference != 0)) /* tile */
             {
               ssize_t
                 x,