https://github.com/ImageMagick/ImageMagick/security/advisories/GHSA-chf5-8rv9-gjqr

Cristy · Cristy · commit e006a69e03f3 · 2026-08-04T18:46:18.000-04:00
diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
@@ -7189,7 +7189,7 @@ Layers(ref,...)
         /*
           Split image sequence at the first 'NULL:' image.
         */
-        source=image;
+        source=CloneImageList(image,exception);
         while (source != (Image *) NULL)
         {
           source=GetNextImageInList(source);
diff --git a/PerlMagick/quantum/quantum.xs.in b/PerlMagick/quantum/quantum.xs.in
@@ -7190,7 +7190,7 @@ Layers(ref,...)
         /*
           Split image sequence at the first 'NULL:' image.
         */
-        source=image;
+        source=CloneImageList(image,exception);
         while (source != (Image *) NULL)
         {
           source=GetNextImageInList(source);

Original file line number	Diff line number	Diff line change
`@@ -7189,7 +7189,7 @@ Layers(ref,...)`
`7189`	`7189`	`/*`
`7190`	`7190`	`Split image sequence at the first 'NULL:' image.`
`7191`	`7191`	`*/`
`7192`		`- source=image;`
	`7192`	`+ source=CloneImageList(image,exception);`
`7193`	`7193`	`while (source != (Image *) NULL)`
`7194`	`7194`	`{`
`7195`	`7195`	`source=GetNextImageInList(source);`
Original file line number	Diff line number	Diff line change
`@@ -7190,7 +7190,7 @@ Layers(ref,...)`
`7190`	`7190`	`/*`
`7191`	`7191`	`Split image sequence at the first 'NULL:' image.`
`7192`	`7192`	`*/`
`7193`		`- source=image;`
	`7193`	`+ source=CloneImageList(image,exception);`
`7194`	`7194`	`while (source != (Image *) NULL)`
`7195`	`7195`	`{`
`7196`	`7196`	`source=GetNextImageInList(source);`