From: cristy <urban-warrior@git.imagemagick.org>
Date: Thu, 25 Aug 2011 13:23:09 +0000 (+0000)
Subject: (no commit message)
X-Git-Tag: 7.0.1-0~7148
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=c9419083429096c2b63f89bd9d9f2f126372fa0f;p=imagemagick

---

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index ab42522bc..de7b2e7d4 100644
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -10700,6 +10700,8 @@ Mogrify(ref,...)
           if (next && (next != image))
             {
               image->next=next->next;
+              if (image->next != (Image *) NULL)
+                image->next->previous=image;
               DeleteImageFromRegistry(*pv,next);
             }
           sv_setiv(*pv,(IV) image);