[Catalyst-commits] r12030 - in Catalyst-Runtime/5.80/branches/better_scripts: lib/Catalyst/Script t/author

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-11-26 01:53:20 +0000 (Thu, 26 Nov 2009)
New Revision: 12030

Modified:
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/CGI.pm
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Test.pm
   Catalyst-Runtime/5.80/branches/better_scripts/t/author/http-server.t
Log:
Fix up docs

Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/CGI.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/CGI.pm	2009-11-26 01:25:41 UTC (rev 12029)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/CGI.pm	2009-11-26 01:53:20 UTC (rev 12030)
@@ -13,8 +13,11 @@
 
 =head1 SYNOPSIS
 
-See L<Catalyst>.
+  myapp_cgi.pl [options]
 
+  Options:
+  -h     --help           display this help and exits
+
 =head1 DESCRIPTION
 
 This is a script to run the Catalyst engine specialized for the CGI environment.

Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm	2009-11-26 01:25:41 UTC (rev 12029)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm	2009-11-26 01:53:20 UTC (rev 12030)
@@ -200,8 +200,8 @@
    -d     --debug          force debug mode
    -f     --fork           handle each request in a new process
                       (defaults to false)
-   -h     --help           display this help and exits
-          --host           host (defaults to all)
+          --help           display this help and exits
+   -h     --host           host (defaults to all)
    -p     --port           port (defaults to 3000)
    -k     --keepalive      enable keep-alive connections
    -r     --restart        restart when files get modified

Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Test.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Test.pm	2009-11-26 01:25:41 UTC (rev 12029)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Test.pm	2009-11-26 01:53:20 UTC (rev 12030)
@@ -11,7 +11,6 @@
     Catalyst::Test->import($self->application_name);
 
     print request($ARGV[0])->content  . "\n";
-
 }
 
 
@@ -23,11 +22,14 @@
 
 =head1 SYNOPSIS
 
-See L<Catalyst>.
+  myapp_test.pl [options] /path
 
+  Options:
+  -h     --help           display this help and exits
+
 =head1 DESCRIPTION
 
-FIXME
+Script to perform a test hit against your application and display the output.
 
 =head1 AUTHORS
 

Modified: Catalyst-Runtime/5.80/branches/better_scripts/t/author/http-server.t
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/t/author/http-server.t	2009-11-26 01:25:41 UTC (rev 12029)
+++ Catalyst-Runtime/5.80/branches/better_scripts/t/author/http-server.t	2009-11-26 01:53:20 UTC (rev 12030)
@@ -32,7 +32,7 @@
 # spawn the standalone HTTP server
 my $port = 30000 + int rand(1 + 10000);
 my @cmd = ($^X, "-I$FindBin::Bin/../../lib",
-  "$FindBin::Bin/../../t/tmp/TestApp/script/testapp_server.pl", '-port', $port );
+  "$FindBin::Bin/../../t/tmp/TestApp/script/testapp_server.pl", '--port', $port );
 my $pid = open3( undef, my $server, undef, @cmd)
     or die "Unable to spawn standalone HTTP server: $!";