From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Nov 2013 23:38:38 +0000 (+0000)
Subject: numbered-alias-sheet: bugfixes
X-Git-Tag: A~12
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=b1d87c0c99e722912dc2ba69d0a1b5c8ba9b0af5;hp=f74bc68912c7330578919c995c752eba92291eba;p=d.git

numbered-alias-sheet: bugfixes
---

diff --git a/numbered-alias-sheet b/numbered-alias-sheet
index 8bda11a..8c2758d 100755
--- 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);