From c9419083429096c2b63f89bd9d9f2f126372fa0f Mon Sep 17 00:00:00 2001
From: cristy <urban-warrior@git.imagemagick.org>
Date: Thu, 25 Aug 2011 13:23:09 +0000
Subject: [PATCH]

---
 PerlMagick/Magick.xs | 2 ++
 1 file changed, 2 insertions(+)

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);
-- 
2.40.0