common: say() to simplify html head lines
authorMischa POSLAWSKY <perl@shiar.org>
Wed, 29 Mar 2017 09:49:49 +0000 (11:49 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 10 Apr 2017 13:28:44 +0000 (15:28 +0200)
common.inc.plp

index db5177b1a2f7fbb2b681857cbc496a7a838e89d2..18c247138844f3269e2724f527b887d44067d774 100644 (file)
@@ -117,9 +117,9 @@ sub Html {
 <meta name="viewport" content="width=device-width, initial-scale=1">
 <link rel="icon" type="image/png" href="/clip.png">
 EOT
-       print $_, "\n" for $meta->{stylesheet} || ();
-       print $_, "\n" for $meta->{raw} || ();
-       print qq{</head>\n\n<body id="$file">\n};
+       say for $meta->{stylesheet} || ();
+       say for $meta->{raw} || ();
+       say qq{</head>\n\n<body id="$file">};
 
        # dev indicator
        my $Dev = $ENV{HTTP_HOST} =~ /\bdev\./;