From 6f736d92d4ace32d9fbf2e5351073008e114d4f4 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Wed, 29 Mar 2017 18:15:19 +0200 Subject: [PATCH] common: replace heredoc of html header --- common.inc.plp | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/common.inc.plp b/common.inc.plp index 58d0964..3075e7b 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -105,14 +105,12 @@ sub Html { # leading output $header{content_type} = "text/html; charset=$meta->{charset}"; - print <<"EOT"; - - - - - -$meta->{title} -EOT + say ''; + say ''; + say ''; + say ''; + say sprintf '', $header{content_type}; + say sprintf '%s', $meta->{title}; say sprintf '', EscapeHTML($_) for join(' ', @{ $meta->{description} }) || (); say sprintf '', EscapeHTML($_) @@ -122,7 +120,9 @@ EOT say for stylesheet($meta->{stylesheet}); say for map { @{$_} } $meta->{raw} || (); say '' if $Dev; - say qq{\n\n}; + say ''; + say ''; + say sprintf '', $file; # development version indicator printf '

beta

', join('; ', -- 2.30.0