diff options
| -rwxr-xr-x | iurt_root_command | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/iurt_root_command b/iurt_root_command index 417ebc8..9db3404 100755 --- a/iurt_root_command +++ b/iurt_root_command @@ -30,7 +30,6 @@ use File::NCopy qw(copy); use Iurt::Util qw(plog_init plog); use Cwd 'realpath'; use File::Path qw(make_path); -use List::MoreUtils qw(any); my $arg = @ARGV; my (@params, %run); @@ -378,7 +377,7 @@ sub untar { return; } check_path_authorized($file) && check_path_authorized($dir) or return; - if (any { /^-/ } @o_files) { + if (grep { /^-/ } @o_files) { plog('FAIL', "untar: options forbidden"); return; } |