From: Tomas Doran <bobtfish@bobtfish.net>
Date: Sat, 22 May 2010 10:18:14 +0000 (+0000)
Subject: Mech tests branch
X-Git-Tag: 5.80025~2^2~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=f5325631094cfb10ea022612bdfa9d32772bcb24

Mech tests branch
r15582@spaceinvaders:  t0m | 2010-05-21 18:20:01 +0100
Fix --mech as reportedon list as 'create controller  'option' -mechanize fails'
r15583@spaceinvaders:  t0m | 2010-05-21 18:21:18 +0100
Fix missing - in option, options must be --
---

diff --git a/Changes b/Changes
index fe66038..25bcbc3 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,13 @@
 # This file documents the revision history for Perl extension Catalyst.
 
+ Bug fixes:
+  - Fix the --mech and --mechanize options to the myapp_create.pl script
+    to operate correctly by fixing the options passed down into the script.
+
+ Documentation:
+  - Fix missing - in the docs when describing the --mechanize option at one
+    point.
+
 5.80024 2010-05-15 11:55:44
 
   Bug fixes:
diff --git a/lib/Catalyst/Script/Create.pm b/lib/Catalyst/Script/Create.pm
index 05b4a66..95c0710 100644
--- a/lib/Catalyst/Script/Create.pm
+++ b/lib/Catalyst/Script/Create.pm
@@ -46,7 +46,7 @@ sub run {
     Class::MOP::load_class($helper_class);
     my $helper = $helper_class->new( { '.newfiles' => !$self->force, mech => $self->mechanize } );
 
-    $self->_getopt_full_usage unless $helper->mk_component( $self->application_name, @ARGV );
+    $self->_getopt_full_usage unless $helper->mk_component( $self->application_name, @{$self->extra_argv} );
 
 }
 
@@ -68,7 +68,7 @@ Catalyst::Script::Create - Create a new Catalyst Component
  Examples:
    myapp_create.pl controller My::Controller
    myapp_create.pl controller My::Controller BindLex
-   myapp_create.pl -mechanize controller My::Controller
+   myapp_create.pl --mechanize controller My::Controller
    myapp_create.pl view My::View
    myapp_create.pl view MyView TT
    myapp_create.pl view TT TT