(no commit message)

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index c867d843270280332a38b49b258b077a3b8f0312..f0021a2370f28a3deaccb72a1222c6c02102b28c 100644 (file)
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -14589,6 +14589,7 @@ Write(ref,...)
       (void) CopyMagickString(next->filename,filename,MaxTextExtent);
       next->scene=scene++;
     }
+    *package_info->image_info->magick='\0';
     SetImageInfo(package_info->image_info,(unsigned int)
       GetImageListLength(image),exception);
     for (next=image; next; next=next->next)

diff --git a/PerlMagick/quantum/quantum.xs.in b/PerlMagick/quantum/quantum.xs.in
index 096a5043fa51c9c52fc8a281dc5e8a2a6716ea93..66a4163f35095456455c12b9f4195a2881ced32d 100644 (file)
--- a/PerlMagick/quantum/quantum.xs.in
+++ b/PerlMagick/quantum/quantum.xs.in
@@ -14587,6 +14587,7 @@ Write(ref,...)
       (void) CopyMagickString(next->filename,filename,MaxTextExtent);
       next->scene=scene++;
     }
+    *package_info->image_info->magick='\0';
     SetImageInfo(package_info->image_info,(unsigned int)
       GetImageListLength(image),exception);
     for (next=image; next; next=next->next)