From fbf0e770c262e69c4e069e9cacba3e00aa955762 Mon Sep 17 00:00:00 2001
From: cristy <urban-warrior@git.imagemagick.org>
Date: Mon, 28 Feb 2011 01:11:41 +0000
Subject: [PATCH]

---
 PerlMagick/Magick.xs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index d2514d815..0f33f8b76 100644
--- 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);
-- 
2.50.0