numbered-alias-sheet: bugfixes

diff --git a/numbered-alias-sheet b/numbered-alias-sheet
index 8bda11aa9f4ee3f1c193e02c86e72bd42d6eb75c..8c2758da5463a0bd3864ee713546086e7da92d4f 100755 (executable)
--- a/numbered-alias-sheet
+++ b/numbered-alias-sheet
@@ -280,6 +280,9 @@ sub do_layout_recursive_search ($) {
     $eff_paper_size[$_] = $paperpts[$_] - 2.0*$borders[$_] foreach qw(0 1);
     @eff_paper_size = reverse @eff_paper_size if $lp_y{rotate_paper};
 
+    $eff_paper_size[0] >= $domain_metr[4] 
+       or return wontfit "domain suffix too long";
+
     @item_size = @core_size;
     my $blank_coord = !!$lp_y{'blank-below'};
     $item_size[$blank_coord] *= (1.0 + $blankratio);