done_util, catching runaway lists

1 files changed, 5 insertions, 0 deletions

diff --git a/lib/prep/html/util.pl b/lib/prep/html/util.pl
index 8473c57..e3e77e6 100644
--- a/lib/prep/html/util.pl
+++ b/lib/prep/html/util.pl
@@ -6,6 +6,10 @@ $LIST=0;
 $skipFN= $FN= 0;
 undef %fn;
 
+sub done_util {
+        die "Runaway list detected" if $LIST;
+}
+
 sub do_sign { return <<X; }
 <!-- this file was generated by prep - the hacker's choice in preprocessors -->
 X
@@ -80,6 +84,7 @@ X
 }
 
 sub do_index {
+        die "Runaway list detected" if $LIST;
         my $bold = shift || "TABLE OF CONTENTS";
         my $t = join("<br/>", @index);
         do_reset_numbers;