From 3ba811aa461542877d92747f0f46e89cf187ddf8 Mon Sep 17 00:00:00 2001 From: cristy Date: Mon, 25 Oct 2010 17:07:25 +0000 Subject: [PATCH] --- PerlMagick/Magick.xs | 19 +++++++++++++++---- 1 file changed, 15 insertions(+), 4 deletions(-) diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs index b90c0d72c..8bb406c4b 100644 --- a/PerlMagick/Magick.xs +++ b/PerlMagick/Magick.xs @@ -2027,16 +2027,27 @@ static void SetAttribute(pTHX_ struct PackageInfo *info,Image *image, case 'T': case 't': { - if (LocaleCompare(attribute,"tile") == 0) + if (LocaleCompare(attribute,"texture") == 0) { if (info) - (void) CloneString(&info->image_info->tile,SvPV(sval,na)); + (void) CloneString(&info->image_info->texture,SvPV(sval,na)); break; } - if (LocaleCompare(attribute,"texture") == 0) + if (LocaleCompare(attribute,"thread-limit") == 0) + { + MagickSizeType + limit; + + limit=MagickResourceInfinity; + if (LocaleCompare(SvPV(sval,na),"unlimited") != 0) + limit=(MagickSizeType) SiPrefixToDouble(SvPV(sval,na),100.0); + (void) SetMagickResourceLimit(ThreadResource,limit); + break; + } + if (LocaleCompare(attribute,"tile") == 0) { if (info) - (void) CloneString(&info->image_info->texture,SvPV(sval,na)); + (void) CloneString(&info->image_info->tile,SvPV(sval,na)); break; } if (LocaleCompare(attribute,"tile-offset") == 0) -- 2.50.1