X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Getopt.git;a=blobdiff_plain;f=lib%2FMooseX%2FGetopt.pm;fp=lib%2FMooseX%2FGetopt.pm;h=fea359f814718c2328380799502ef97f7b83d6fd;hp=67725e9100d5bc1211fd09b7690fdc90814bc34f;hb=f7655c45b040d61c8e6aa2e588542977c0368f36;hpb=590c2587a91355885e6d512a3824c5e3caa97b0d diff --git a/lib/MooseX/Getopt.pm b/lib/MooseX/Getopt.pm index 67725e9..fea359f 100644 --- a/lib/MooseX/Getopt.pm +++ b/lib/MooseX/Getopt.pm @@ -69,7 +69,7 @@ sub new_with_options { sub _parse_argv { my ( $class, %params ) = @_; - local @ARGV = @{ $params{argv} || \@ARGV }; + local @ARGV = @{ $params{params}{argv} || \@ARGV }; my ( $opt_spec, $name_to_init_arg ) = ( HAVE_GLD ? $class->_gld_spec(%params) : $class->_traditional_spec(%params) );