From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 9 Oct 2010 14:08:08 +0000 (+0100)
Subject: pass ARGV to _run_cli to enable testing
X-Git-Tag: v0.005~35
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=db2899c36127557d250be906affe1fcd73eca7af;hp=64a6f95061e15825b9df83f9ed24fd3309bf2687;p=catagits%2FWeb-Simple.git

pass ARGV to _run_cli to enable testing
---

diff --git a/lib/Web/Simple/Application.pm b/lib/Web/Simple/Application.pm
index b039308..a11972c 100644
--- a/lib/Web/Simple/Application.pm
+++ b/lib/Web/Simple/Application.pm
@@ -275,7 +275,7 @@ sub run {
     return $self->_run_cgi;
   }
   unless (@ARGV && $ARGV[0] =~ m{^/}) {
-    return $self->_run_cli;
+    return $self->_run_cli(@ARGV);
   }
 
   my $path = shift @ARGV;