fix for issue #57 (#63)

This commit is contained in:
Klim 2017-02-09 23:59:57 +03:00 committed by bubnikv
parent db30cee6a9
commit 98edb4f854

View File

@ -212,6 +212,7 @@ sub _update_shape {
my $rect_origin = $self->{optgroups}[SHAPE_RECTANGULAR]->get_value('rect_origin');
my ($x, $y) = @$rect_size;
return if !looks_like_number($x) || !looks_like_number($y); # empty strings or '-' or other things
return if !$x || !$y;
my ($x0, $y0) = (0,0);
my ($x1, $y1) = ($x,$y);
{