- $PLP::ERROR = sub {
- my ($text, $html) = @_;
- warn $text;
- unless ($PLP::sentheaders and $PLP::sentheaders->[0] !~ m{/PLP\.pm$}) {
- Html({nocache => 1});
- say '<h1>Page unavailable</h1>';
- }
- Alert("<strong>Fatal error</strong>: $html.");
- };
-