From: Cristy Date: Sat, 11 Mar 2017 19:31:37 +0000 (-0500) Subject: ... X-Git-Tag: 7.0.5-3~17 X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=9c92be47ab6913c97664eda2747cde90d8d52d4b;p=imagemagick ... --- diff --git a/PerlMagick/quantum/quantum.xs.in b/PerlMagick/quantum/quantum.xs.in index b9c709601..32955a8be 100644 --- a/PerlMagick/quantum/quantum.xs.in +++ b/PerlMagick/quantum/quantum.xs.in @@ -5008,11 +5008,11 @@ Get(ref,...) } if (LocaleCompare(attribute,"filename") == 0) { - if (info && info->image_info->filename && - *info->image_info->filename) - s=newSVpv(info->image_info->filename,0); if (image != (Image *) NULL) s=newSVpv(image->filename,0); + else + if (info && *info->image_info->filename) + s=newSVpv(info->image_info->filename,0); PUSHs(s ? sv_2mortal(s) : &sv_undef); continue; }