report writes now also a todo

perl6 · May 8, 2012 · e57de33 · e57de33
1 parent 07a09e4
commit e57de33
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/docs/report.pl b/docs/report.pl
@@ -42,7 +42,12 @@
 
 
 # Tester
+	print "TODO:\n";
+	open $FH, '<', 'appendix-a-index.txt';
+	$content = do {local $/; <$FH>};
+	my $v =()= $content =~ /\&mdash;\n\n/g;
+	print " empty index entries: $v\n";
 	open $FH, '<', 'appendix-g-glossary.txt';
 	$content = do {local $/; <$FH>};
 	my $v =()= $content =~ /\&mdash;\n\n/g;
-	print "unanswered glossary terms: $v\n";
+	print " empty glossary terms: $v\n";