From: cristy <urban-warrior@git.imagemagick.org>
Date: Tue, 30 Aug 2011 16:56:53 +0000 (+0000)
Subject: (no commit message)
X-Git-Tag: 7.0.1-0~7119
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=ed251be31fe9d1509325c321f8b4741e42b67c54;p=imagemagick

---

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index 04d7bbc84..e8fe14a68 100644
--- 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);