From: cristy <urban-warrior@git.imagemagick.org>
Date: Mon, 1 Nov 2010 12:41:19 +0000 (+0000)
Subject: (no commit message)
X-Git-Tag: 7.0.1-0~8585
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=773f6f35485aaa3ed487cac9992a025748fecf41;p=imagemagick

---

diff --git a/PerlMagick/Changelog b/PerlMagick/Changelog
index c97d62608..3d1787adf 100644
--- a/PerlMagick/Changelog
+++ b/PerlMagick/Changelog
@@ -1,3 +1,7 @@
+2010-11-01  6.6.5-6 Cristy  <quetzlzacatenango@image...>
+  * The gravity attribute must set the ImageInfo gravity property (reference
+    http://www.imagemagick.org/discourse-server/viewtopic.php?f=3&t=17282).
+
 2009-12-08  6.5.8-5 <kmx@volny...>
   * A couple of minor changes to Makefile.PL to support Strawberry Perl.
 
diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index 8bb406c4b..d98b724f2 100644
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -1524,6 +1524,8 @@ static void SetAttribute(pTHX_ struct PackageInfo *info,Image *image,
                 "UnrecognizedGravityType",SvPV(sval,na));
               break;
             }
+          if (info)
+            SetImageOption(info->image_info,attribute,SvPV(sval,na));
           for ( ; image; image=image->next)
             image->gravity=(GravityType) sp;
           break;