add return so code doesn't explode after use

[catagits/Web-Simple.git] / lib / Web / Simple / Application.pm

diff --git a/lib/Web/Simple/Application.pm b/lib/Web/Simple/Application.pm
index de514c8..15a6d5e 100644 (file)
--- a/lib/Web/Simple/Application.pm
+++ b/lib/Web/Simple/Application.pm
@@ -160,7 +160,7 @@ sub _run_cgi {
 sub run {
   my $self = shift;
   if ($ENV{GATEWAY_INTERFACE}) {
-    $self->_run_cgi;
+    return $self->_run_cgi;
   }
   my $path = shift(@ARGV) or die "No path passed - use $0 / for root";