C::C::CGIBin - new release

[catagits/Catalyst-Controller-WrapCGI.git] / t / lib / TestCGIBin / Controller / CGIHandler.pm

diff --git a/t/lib/TestCGIBin/Controller/CGIHandler.pm b/t/lib/TestCGIBin/Controller/CGIHandler.pm
index 3a7409f..3092f40 100644 (file)
--- a/t/lib/TestCGIBin/Controller/CGIHandler.pm
+++ b/t/lib/TestCGIBin/Controller/CGIHandler.pm
@@ -2,6 +2,13 @@ package TestCGIBin::Controller::CGIHandler;
 
 use parent 'Catalyst::Controller::CGIBin';
 
+# Turn off log for the non-zero exit test
+sub auto : Private {
+    my ($self, $c) = @_;
+    $c->log->levels() unless $c->debug;
+    1;
+}
+
 sub cgi_path {
     my ($self, $cgi) = @_;
     return "my-bin/$cgi";