aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xiurt_root_command3
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;
}