diff options
author | Daniel Friesel <derf@finalrewind.org> | 2014-01-07 11:03:20 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2014-01-07 11:05:15 +0100 |
commit | 357b5309e980ab1d1701b61298a2a2637f704e95 (patch) | |
tree | 629f260b2a4fec8909c359a667ad9c7dc15685bf | |
parent | d1ead7ba9bc3bd442f1cc5bb5bf97a46b793b62f (diff) |
Decode all arguments (thanks mxey)
-rwxr-xr-x | bin/efa | 7 |
1 files changed, 2 insertions, 5 deletions
@@ -136,6 +136,8 @@ sub display_connection { return; } +@ARGV = map { decode( 'UTF-8', $_ ) } @ARGV; + #<<< GetOptions( $opt, @@ -178,11 +180,6 @@ for my $pair ( [ \@from, \$from_type ], [ \@via, \$via_type ], [ \@to, \$to_type ], ) { - if ( @{ $pair->[0] } ) { - $pair->[0]->[0] = decode( 'UTF-8', $pair->[0]->[0] ); - $pair->[0]->[1] = decode( 'UTF-8', $pair->[0]->[1] ); - } - next if ( not defined $pair->[0]->[1] ); if ( |