From 83a28a0b7920165ec236a428f04621d6a4a22626 Mon Sep 17 00:00:00 2001
From: cristy <urban-warrior@git.imagemagick.org>
Date: Sat, 3 Aug 2013 20:25:48 +0000
Subject: [PATCH]

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

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index cf2b2a45a..3607900e7 100644
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -246,7 +246,7 @@ static struct
       {"channel", MagickChannelOptions} } },
     { "Roll", { {"geometry", StringReference}, {"x", IntegerReference},
       {"y", IntegerReference} } },
-    { "Rotate", { {"degrees", RealReference}, 
+    { "Rotate", { {"degrees", RealReference},
       {"background", StringReference} } },
     { "Sample", { {"geometry", StringReference}, {"width", IntegerReference},
       {"height", IntegerReference} } },
@@ -7020,6 +7020,8 @@ Layers(ref,...)
     }
     if (layers != (Image *) NULL)
       image=layers;
+    else
+      image=CloneImage(image,0,0,MagickTrue,exception);
     if (image == (Image *) NULL)
       goto PerlException;
     for ( ; image; image=image->next)
@@ -10941,7 +10943,7 @@ Mogrify(ref,...)
         {
           /*
             Composite region.
-          */ 
+          */
           status=CompositeImage(region_image,image,CopyCompositeOp,MagickTrue,
             region_info.x,region_info.y,exception);
           (void) status;
-- 
2.40.0