(no commit message)

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index 04d7bbc84034b3725e413f87c3b58b71871840bb..e8fe14a68e38554a3c193a23df9967393ca6b191 100644 (file)
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -11288,6 +11288,9 @@ Mosaic(ref)
     AV
       *av;
 
+    char
+      *p;
+
     ExceptionInfo
       *exception;
 
@@ -11338,6 +11341,9 @@ Mosaic(ref)
     av_push(av,sv_bless(rv,hv));
     SvREFCNT_dec(sv);
     info=GetPackageInfo(aTHX_ (void *) av,info,exception);
+    (void) FormatLocaleString(info->image_info->filename,MaxTextExtent,
+      "mosaic-%.*s",(int) (MaxTextExtent-9),((p=strrchr(image->filename,'/')) ?
+      p+1 : image->filename));
     (void) CopyMagickString(image->filename,info->image_info->filename,
       MaxTextExtent);
     SetImageInfo(info->image_info,0,&image->exception);