From db115442ca6c1813716a53f0647dc1f3f584303b Mon Sep 17 00:00:00 2001 From: cristy Date: Wed, 5 Oct 2011 21:17:38 +0000 Subject: [PATCH] --- PerlMagick/Magick.xs | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs index c99ca4da4..786dff752 100644 --- a/PerlMagick/Magick.xs +++ b/PerlMagick/Magick.xs @@ -1150,7 +1150,7 @@ static void SetAttribute(pTHX_ struct PackageInfo *info,Image *image, if (LocaleCompare(attribute,"authenticate") == 0) { if (info) - (void) CloneString(&info->image_info->authenticate,SvPV(sval,na)); + SetImageOption(info->image_info,attribute,SvPV(sval,na)); break; } if (info) @@ -4292,7 +4292,14 @@ Get(ref,...) if (LocaleCompare(attribute,"authenticate") == 0) { if (info) - s=newSVpv(info->image_info->authenticate,0); + { + const char + *option; + + option=GetImageOption(info->image_info,attribute); + if (option != (const char *) NULL) + s=newSVpv(option,0); + } PUSHs(s ? sv_2mortal(s) : &sv_undef); continue; } -- 2.40.0