add PSGI handler

[chaz/p5-CGI-Ex] / lib / CGI / Ex / Dump.pm

diff --git a/lib/CGI/Ex/Dump.pm b/lib/CGI/Ex/Dump.pm
index 574eae57438b258e422f25d2a6f10dc22962256b..d3f84b43cd76de1e94506adfdddef4366ef517b9 100644 (file)
--- a/lib/CGI/Ex/Dump.pm
+++ b/lib/CGI/Ex/Dump.pm
@@ -111,7 +111,7 @@ sub _what_is_this {
     return $html if $called eq 'dex_html';
     require CGI::Ex;
     CGI::Ex::print_content_type();
-    print $html;
+    ($CGI::Ex::CURRENT || CGI::Ex->new)->print_body($html);
   }
   return @_[0..$#_];
 }