(no commit message)

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index d2514d81520de50aa35bfe89cd9f933bef72c9df..0f33f8b769d555233830eb20d76238b117286e38 100644 (file)
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -531,7 +531,8 @@ static struct
       {"channel", MagickChannelOptions}, {"method", MagickMorphologyOptions},
       {"iterations", IntegerReference} } },
     { "ColorMatrix", { {"matrix", ArrayReference} } },
-    { "Color", { {"color", StringReference} } }
+    { "Color", { {"color", StringReference} } },
+    { "Mode", { {"radius", RealReference} } }
   };
 
 static SplayTreeInfo
@@ -7278,6 +7279,8 @@ Mogrify(ref,...)
     ColorMatrixImage   = 268
     Color              = 269
     ColorImage         = 270
+    Mode               = 271
+    ModeImage          = 272
     MogrifyRegion      = 666
   PPCODE:
   {
@@ -10611,6 +10614,13 @@ Mogrify(ref,...)
           (void) SetImageColor(image,&color);
           break;
         }
+        case 136:  /* Mode */
+        {
+          if (attribute_flag[0] == 0)
+            argument_list[0].real_reference=0.0;
+          image=ModeImage(image,argument_list[0].real_reference,exception);
+          break;
+        }
       }
       if (next != (Image *) NULL)
         (void) CatchImageException(next);