X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/c0b45d8bc967cae8e54c03702e16f52222884867..d82c3e9b9482dea04d0b7bfb6fcd52c296eae022:/common.inc.plp?ds=sidebyside
diff --git a/common.inc.plp b/common.inc.plp
index db5177b..593adb0 100644
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -12,6 +12,7 @@ use HTTP::Date;
$PLP::ERROR = sub {
my ($text, $html) = @_;
print '
Fatal error: '.$html."
\n\n";
+ warn $text;
};
BEGIN {
@@ -117,9 +118,9 @@ sub Html {
EOT
- print $_, "\n" for $meta->{stylesheet} || ();
- print $_, "\n" for $meta->{raw} || ();
- print qq{\n\n\n};
+ say for $meta->{stylesheet} || ();
+ say for $meta->{raw} || ();
+ say qq{\n\n};
# dev indicator
my $Dev = $ENV{HTTP_HOST} =~ /\bdev\./;