Fixed bug reported on docbook-apps 2011-06-10. Tested with Perl 5.10.1 and 5.12.2.

diff --git a/imageco/bin/areaoverlay b/imageco/bin/areaoverlay
index 56fd9a0e5040055f7273d08da98f504d0303c733..0d328d062146c064d604bc505138dc92252d0792 100755 (executable)
--- a/imageco/bin/areaoverlay
+++ b/imageco/bin/areaoverlay
@@ -145,10 +145,11 @@ sub makeOverlay {
     my $black = $orig->colorAllocate(0,0,0);
 
     while (@coords) {
-       while (split(/\s+/, shift @coords)) {
-           my $conumber = shift || die "Can't parse callout data.\n";
-           my $llcorner = shift || die "Can't parse callout data.\n";
-           my $urcorner = shift || die "Can't parse callout data.\n";
+      my @tmp = (split(/\s+/, shift @coords));
+      while (@tmp) {
+        my $conumber = shift @tmp || die "Can't parse callout data.\n";
+        my $llcorner = shift @tmp || die "Can't parse callout data.\n";
+        my $urcorner = shift @tmp || die "Can't parse callout data.\n";
 
            die "Can't parse callout data.\n"
                if ($conumber !~ /^\d+$/