(no commit message)

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index b90c0d72cd463940ef2bb9e420e9329189e5f432..8bb406c4b8427544b43a06535143c8bcd0b6972f 100644 (file)
--- 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)