diff options
Diffstat (limited to 'Documentation/txt2pre')
-rwxr-xr-x | Documentation/txt2pre | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Documentation/txt2pre b/Documentation/txt2pre index 72de0b79..2f1799fc 100755 --- a/Documentation/txt2pre +++ b/Documentation/txt2pre @@ -11,7 +11,8 @@ use PublicInbox::Linkify; use PublicInbox::Hval qw(ascii_html); my $str = eval { local $/; <> }; -my ($title) = ($str =~ /\A([^\n]+)/); +my $title = $ENV{TITLE}; +($title) = ($str =~ /\A([^\n]+)/) unless $title; $title = ascii_html($title); my $l = PublicInbox::Linkify->new; $str = $l->linkify_1($str); |