X-Git-Url: https://git.decadent.org.uk/gitweb/?p=maypole.git;a=blobdiff_plain;f=debian%2Fpatches%2F104_add-cgi-error-status.diff;fp=debian%2Fpatches%2F104_add-cgi-error-status.diff;h=7fdef7366e42e2a09a206178c50eefa304066c13;hp=0000000000000000000000000000000000000000;hb=edbb6d92dbe1f67f8123a2652dc7467cff06ecf6;hpb=bce35eb34c411fcbc5eb0b681050f55e060cfdd1

diff --git a/debian/patches/104_add-cgi-error-status.diff b/debian/patches/104_add-cgi-error-status.diff
new file mode 100644
index 0000000..7fdef73
--- /dev/null
+++ b/debian/patches/104_add-cgi-error-status.diff
@@ -0,0 +1,21 @@
+--- 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