From: cristy <urban-warrior@git.imagemagick.org>
Date: Mon, 25 Oct 2010 17:07:25 +0000 (+0000)
Subject: (no commit message)
X-Git-Tag: 7.0.1-0~8616
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=3ba811aa461542877d92747f0f46e89cf187ddf8;p=imagemagick

---

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)