aboutsummaryrefslogtreecommitdiff
path: root/Perl/demos
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/demos')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl1
1 files changed, 1 insertions, 0 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
index 076bc0f..0102be3 100644
--- a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
@@ -125,6 +125,7 @@ sub zoom {
} else {
$maxy = $cur_y;
}
+ return if ($maxx == 0 || $maxy == 0);
$sx = 1.0 + ($lx - $cur_x)/$maxx;
$sy = 1.0 + ($ly - $cur_y)/$maxy;
$cur_x = $lx;