… | … | ||
---|---|---|---|
79 | sub section(@) { | 79 | sub section(@) { |
80 | map section_of $_, &find | 80 | map section_of $_, &find |
81 | } | 81 | } |
82 | 82 | ||
83 | sub as_label(@) { | 83 | sub as_label(@) { |
84 | my $text = | ||
84 | join "\n", | 85 | join "\n", |
85 | map +("\xa0" x ($_->{indent} / 4)) . $_->{markup}, | 86 | map +("\xa0" x ($_->{indent} / 4)) . $_->{markup}, |
86 | @_ | 87 | @_; |
88 | |||
89 | $text =~ s/^\s+//; | ||
90 | $text =~ s/\s+$//; | ||
91 | |||
92 | $text | ||
93 | } | ||
94 | |||
95 | sub section_label(@) { | ||
96 | as_label §ion | ||
87 | } | 97 | } |
88 | 98 | ||
89 | 1 | 99 | 1 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |