diff options
| author | Michael Scherer <misc@mageia.org> | 2011-04-15 12:45:28 +0000 |
|---|---|---|
| committer | Michael Scherer <misc@mageia.org> | 2011-04-15 12:45:28 +0000 |
| commit | 91c573f2ad0609ab55e7359ac431d373c02488fc (patch) | |
| tree | 120ed37989be2822fb27bbe0cd534c44b7489d4b /iurt_root_command | |
| parent | 97f18f7be92ae1cc344a77d58a8bf26e39f0db9f (diff) | |
| download | iurt-91c573f2ad0609ab55e7359ac431d373c02488fc.tar iurt-91c573f2ad0609ab55e7359ac431d373c02488fc.tar.gz iurt-91c573f2ad0609ab55e7359ac431d373c02488fc.tar.bz2 iurt-91c573f2ad0609ab55e7359ac431d373c02488fc.tar.xz iurt-91c573f2ad0609ab55e7359ac431d373c02488fc.zip | |
- use grep instead of any, as this is builtin
Diffstat (limited to 'iurt_root_command')
| -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; } |