common: copy plp errors on stderr

Log unexpected runtime failure.

diff --git a/common.inc.plp b/common.inc.plp
index 18c247138844f3269e2724f527b887d44067d774..593adb0619d2d2b579782e888772114f412058ad 100644 (file)
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -12,6 +12,7 @@ use HTTP::Date;
 $PLP::ERROR = sub {
        my ($text, $html) = @_;
        print '<p class="error"><strong>Fatal error</strong>: '.$html."</p>\n\n";
 $PLP::ERROR = sub {
        my ($text, $html) = @_;
        print '<p class="error"><strong>Fatal error</strong>: '.$html."</p>\n\n";

+       warn $text;

 };
 
 BEGIN {
 };
 
 BEGIN {