diff --git a/lib/App/NDTools/NDProc.pm b/lib/App/NDTools/NDProc.pm index aed022e..ed98d5b 100644 --- a/lib/App/NDTools/NDProc.pm +++ b/lib/App/NDTools/NDProc.pm @@ -4,7 +4,7 @@ use strict; use warnings FATAL => 'all'; use parent 'App::NDTools::NDTool'; -use Getopt::Long qw(:config bundling pass_through); +use Getopt::Long qw(GetOptionsFromArray :config bundling pass_through); use Log::Log4Cli; use Module::Find qw(findsubmod); use App::NDTools::Slurp qw(s_decode s_dump s_encode); @@ -13,7 +13,7 @@ use Struct::Diff 0.94 qw(diff split_diff); use Struct::Path 0.80 qw(path); use Struct::Path::PerlStyle 0.80 qw(str2path); -our $VERSION = '0.24'; +our $VERSION = '0.25'; sub arg_opts { my $self = shift; @@ -133,10 +133,8 @@ sub exec { 'version|V' => sub { print $self->VERSION . "\n"; exit 0 }, ); - my $p = Getopt::Long::Parser->new(); - $p->configure('nopass_through'); # just to be sure - unless ($p->getoptionsfromarray($self->{ARGV}, @rest_opts)) { - + Getopt::Long::Configure('nopass_through'); + unless (GetOptionsFromArray($self->{ARGV}, @rest_opts)) { $self->usage; die_fatal "Unsupported opts passed", 1; }