(no commit message)

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index 7f92f595468f7da4fa475457d0842cf4168075e2..ad5d5a12f6af03ef28b8980cff93bf5b2731812b 100644 (file)
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -8793,10 +8793,6 @@ Mogrify(ref,...)
           char
             modulate[MaxTextExtent];
 
-          ColorspaceType
-            colorspace;
-
-          colorspace=image->colorspace;
           geometry_info.rho=100.0;
           geometry_info.sigma=100.0;
           geometry_info.xi=100.0;
@@ -8809,25 +8805,24 @@ Mogrify(ref,...)
             geometry_info.sigma=argument_list[2].real_reference;
           if (attribute_flag[3] != 0)
             {
-              (void) SetImageColorspace(image,HWBColorspace);
               geometry_info.sigma=argument_list[3].real_reference;
+              SetImageArtifact(image,"modulate:colorspace","HSB");
             }
           if (attribute_flag[4] != 0)
             geometry_info.rho=argument_list[4].real_reference;
           if (attribute_flag[5] != 0)
             {
-              (void) SetImageColorspace(image,HSLColorspace);
               geometry_info.sigma=argument_list[5].real_reference;
+              SetImageArtifact(image,"modulate:colorspace","HSL");
             }
           if (attribute_flag[6] != 0)
             {
-              (void) SetImageColorspace(image,HWBColorspace);
               geometry_info.rho=argument_list[6].real_reference;
+              SetImageArtifact(image,"modulate:colorspace","HWB");
             }
           (void) FormatLocaleString(modulate,MaxTextExtent,"%.15g,%.15g,%.15g",
             geometry_info.rho,geometry_info.sigma,geometry_info.xi);
           (void) ModulateImage(image,modulate);
-          (void) SetImageColorspace(image,colorspace);
           break;
         }
         case 44:  /* Negate */