git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
common: early setup of plp error formatting
[sheet.git]
/
common.inc.plp
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