Fix crash in bed shape dialog

This commit is contained in:
Alessandro Ranellucci 2016-12-20 13:21:39 +01:00
parent 12165c727e
commit 346671e161

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);
{