Commit c19c68a7 authored by Russ Fish's avatar Russ Fish

ImageMagick changed its temp file suffixes from .jpg.N to -N.jpg .

parent eaf35224
...@@ -452,13 +452,13 @@ writefiles($images->[0], @areamaps); ...@@ -452,13 +452,13 @@ writefiles($images->[0], @areamaps);
## Append the component images in the shell, until the Perl function is fixed. ## Append the component images in the shell, until the Perl function is fixed.
dprint "Last image is $img_n.\n"; dprint "Last image is $img_n.\n";
if ($img_n > 0) { if ($img_n > 0) {
my @args = ("convert", "${prefix}.jpg.*", "-append", "${prefix}.jpg"); my @args = ("convert", "${prefix}-*.jpg*", "-append", "${prefix}.jpg");
dprint "@args\n"; dprint "@args\n";
system(@args) == 0 system(@args) == 0
or die "system @args failed: $?"; or die "system @args failed: $?";
## Clean up the component image files. ## Clean up the component image files.
@args = ("/bin/sh", "-c", "rm ${prefix}.jpg.*"); @args = ("/bin/sh", "-c", "rm ${prefix}-*.jpg");
dprint "@args\n"; dprint "@args\n";
system(@args) == 0 system(@args) == 0
or die "system @args failed: $?"; or die "system @args failed: $?";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment