+++ /dev/null
---- maypole.orig/lib/CGI/Maypole.pm
-+++ maypole/lib/CGI/Maypole.pm
-@@ -57,7 +57,17 @@
- sub run
- {
- my $self = shift;
-- return $self->handler;
-+ my $status = $self->handler;
-+ if ($status != OK) {
-+ print <<EOT;
-+Status: 500 Maypole application error
-+Content-Type: text/html
-+
-+<title>Maypole application error</h1>
-+<h1>Maypole application error</h1>
-+EOT
-+ }
-+ return $status;
- }
-
- =head1 Implementation