From 38891c897d2ad2ec1e258c58949e96208ca05447 Mon Sep 17 00:00:00 2001 From: Mauritz Jeanson Date: Sat, 23 Jul 2011 21:14:39 +0000 Subject: [PATCH] Fixed bug reported on docbook-apps 2011-06-10. Tested with Perl 5.10.1 and 5.12.2. --- imageco/bin/areaoverlay | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/imageco/bin/areaoverlay b/imageco/bin/areaoverlay index 56fd9a0e5..0d328d062 100755 --- 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+$/ -- 2.40.0