common: early setup of plp error formatting

Load at BEGIN to catch compile-time errors.

diff --git a/common.inc.plp b/common.inc.plp
index 6b45e50042d6bb5f5f52420198905e2f41ac53db..d7e2b7936e2674f2b13c8abf507319d9ead36f4c 100644 (file)
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -20,15 +20,15 @@ sub Alert {
        say "<div class=error>$body</div>\n";
 }
 
        say "<div class=error>$body</div>\n";
 }
 

-$PLP::ERROR = sub {
-       my ($text, $html) = @_;
-       Alert("<strong>Fatal error</strong>: $html.");
-       warn $text;
-};
-

 BEGIN {
        require Time::HiRes;
        our $Time = [Time::HiRes::gettimeofday()];
 BEGIN {
        require Time::HiRes;
        our $Time = [Time::HiRes::gettimeofday()];

+
+       $PLP::ERROR = sub {
+               my ($text, $html) = @_;
+               warn $text;
+               Alert("<strong>Fatal error</strong>: $html.");
+       };

 }
 
 # user request
 }
 
 # user request