7fdef7366e42e2a09a206178c50eefa304066c13
[maypole.git] / 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