Chomp article titles

[plack-app-gruntmaster.git] / lib / Plack / App / Gruntmaster / HTML.pm

diff --git a/lib/Plack/App/Gruntmaster/HTML.pm b/lib/Plack/App/Gruntmaster/HTML.pm
index 3cfbc54be43acb876d8bce726fc61b442ece0d1b..d6f6c254d7c4fecfba70277e3202a07df1ada3fc 100644 (file)
--- a/lib/Plack/App/Gruntmaster/HTML.pm
+++ b/lib/Plack/App/Gruntmaster/HTML.pm
@@ -11,9 +11,11 @@ use Data::Dumper qw/Dumper/;
 
 sub ftime ($)   { POSIX::strftime '%c', localtime shift }
 sub literal ($) {
+       my ($html) = @_;
+       return unless $html;
        my $b = HTML::TreeBuilder->new;
        $b->ignore_unknown(0);
-       $b->parse(shift // '');
+       $b->parse($html);
        HTML::Element::Library::super_literal $b->guts->as_HTML;
 }
 
@@ -67,6 +69,7 @@ sub render_article {
        my ($art, $lang, %args) = @_;
        $lang //= 'en';
        my $title = read_file "a/$art.$lang.title";
+       chomp $title;
        my $meat  = read_file "a/$art.$lang";
        _render('skel', $lang, title => $title , meat => $meat, %args)
 }