Skip to content

Commit fe92708

Browse files
committed
Use the TITLE for "Language Documentation", if possible
moritz++ ( http://irclog.perlgeek.de/perl6/2014-04-26#i_8641084 )
1 parent 2c42a1c commit fe92708

File tree

2 files changed

+5
-2
lines changed

2 files changed

+5
-2
lines changed

htmlify.pl

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -170,9 +170,12 @@ (Bool :$debug, Bool :$typegraph = False)
170170
);
171171
}
172172
}
173+
my $name = $pod.content[0].name eq "TITLE"
174+
?? $pod.content[0].content[0].content[0]
175+
!! $podname;
173176
$dr.add-new(
174177
:kind<language>,
175-
:name($podname),
178+
:name($name),
176179
:$pod,
177180
:pod-is-complete,
178181
);

lib/containers.pod

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
=begin pod
22
3-
=head1 Perl 6 Containers: a low-level approach
3+
=TITLE Perl 6 Containers: a low-level approach
44
55
This article started as a conversion on IRC explaining the difference between
66
the C<Array> and the C<List> type in Perl 6. It explains the levels of

0 commit comments

Comments
 (0)