From 91c573f2ad0609ab55e7359ac431d373c02488fc Mon Sep 17 00:00:00 2001
From: Michael Scherer <misc@mageia.org>
Date: Fri, 15 Apr 2011 12:45:28 +0000
Subject: - use grep instead of any, as this is builtin

---
 iurt_root_command | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'iurt_root_command')

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;	
     }
-- 
cgit v1.2.1