5 for my $text (<git-*.txt>) {
6 open I, '<', $text || die "cannot read: $text";
7 (my $base = $text) =~ s/\.txt$//;
13 $include{$base}{$_} = 1;
19 # Do we care about chained includes???
21 while (my ($base, $included) = each %include) {
24 $suffix = '7'; # yuck...
26 print "$base.html $base.$suffix : ", join(" ", keys %$included), "\n";