no halting if object is pushed multiple times

[gubach]

I want to push an image object with one image multiple times in an other image object, but for $A > 2 this seems not to halt

Code: Select all

for ($p = 1; $p <= $A; $p++) {
	push(@$img_list, $img);
};  

Have also tried push(@$img_list, @$img); Only if $img is written and multiple times read it works. The same problem is shown if image object $img has several images.

Any suggestions to fix this? Thank you!

[magick]

Use

• push(@$img_list, $img->Clone());