X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/9cd28a89456f57a491c83600b95f6dd0840e7ec1..7ef36c7f5e56a405ee0fcb0d40c68b190a81170d:/lib/PLP.pm diff --git a/lib/PLP.pm b/lib/PLP.pm index d17c9c6..4afb904 100644 --- a/lib/PLP.pm +++ b/lib/PLP.pm @@ -14,7 +14,7 @@ use File::Spec; use strict; use warnings; -our $VERSION = '3.22_01'; +our $VERSION = '3.24'; # Subs in this package: # _default_error($plain, $html) Default error handler @@ -76,7 +76,9 @@ sub error { print "Status: $type\nContent-Type: text/html\n\n", qq{\n}, "\n$type $short\n\n

$short", - "

\n$long

\n

\n$ENV{SERVER_SIGNATURE}"; + "\n$long

\n

\n"; + print $ENV{SERVER_SIGNATURE} if $ENV{SERVER_SIGNATURE}; + print ""; } } @@ -92,6 +94,7 @@ sub handler { # Sends the headers waiting in %PLP::Script::header sub sendheaders () { + local $\; # reset print behaviour if triggered by say() $PLP::sentheaders ||= [ caller 1 ? (caller 1)[1, 2] : (caller)[1, 2] ]; print STDOUT "Content-Type: text/plain\n\n" if $PLP::DEBUG & 2; while (my ($header, $values) = each %PLP::Script::header) {