argv decode fixed, second attempt

mr-mixas · Feb 1, 2018 · 0e4e1dd · 0e4e1dd
1 parent 77cbeda
commit 0e4e1dd
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/lib/App/NDTools/NDTool.pm b/lib/App/NDTools/NDTool.pm
@@ -5,18 +5,13 @@ use warnings FATAL => 'all';
 
 use App::NDTools::INC;
 use App::NDTools::Slurp qw(s_dump s_load);
+use Encode::Locale qw(decode_argv);
 use Getopt::Long qw(GetOptionsFromArray :config bundling);
 use Log::Log4Cli;
 use Struct::Path 0.80 qw(path);
 
 sub VERSION { "n/a" }
 
-BEGIN {
-    require Encode;
-    require Encode::Locale;
-    Encode::Locale::decode_argv(Encode::FB_CROAK());
-}
-
 sub arg_opts {
     my $self = shift;
 
@@ -91,6 +86,7 @@ sub new {
     my $self = bless { ARGV => \@_ }, shift;
     $self->{OPTS} = $self->defaults();
 
+    decode_argv(Encode::FB_CROAK);
     unless (GetOptionsFromArray ($self->{ARGV}, $self->arg_opts)) {
         $self->usage;
         die_fatal "Unsupported opts used", 1;