(no commit message)

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index ab42522bc5e06d237ec916bcd7494cc1be9d51c4..de7b2e7d46105d19e7bf2ed2ed8553387df8b14a 100644 (file)
--- 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);