Unpossible, but people keep seeing it

diff --git a/Changes b/Changes
index d844ca9..f107284 100644 (file)
--- a/Changes
+++ b/Changes
@@ -15,6 +15,8 @@
     and other loggers which open a file handle when
   - Change incorrect use of File::Spec->catdir to File::Spec->catfile
     so that we work on platforms which care about this (VMS?)
+  - Make it more obvious if our PSGI server doesn't pass in a response
+    callback.
 
 5.90010 - 2012-02-18 00:01:00
 

diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 7b4021c..daf53d1 100644 (file)
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -678,6 +678,7 @@ sub build_psgi_app {
 
         return sub {
             my ($respond) = @_;
+            confess("Did not get a response callback for writer, cannot continiue") unless $respond;
             $app->handle_request(env => $env, response_cb => $respond);
         };
     };