debian/patches/104_add-cgi-error-status.diff

   1 --- maypole.orig/lib/CGI/Maypole.pm
   2 +++ maypole/lib/CGI/Maypole.pm
   3 @@ -57,7 +57,17 @@
   4  sub run
   5  {
   6      my $self = shift;
   7 -    return $self->handler;
   8 +    my $status = $self->handler;
   9 +    if ($status != OK) {
  10 +       print <<EOT;
  11 +Status: 500 Maypole application error
  12 +Content-Type: text/html
  13 +
  14 +<title>Maypole application error</h1>
  15 +<h1>Maypole application error</h1>
  16 +EOT
  17 +    }
  18 +    return $status;
  19  }
  20
  21  =head1 Implementation