From f5f2b431771d5a7021030c4b82fde677157ded72 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 3 Nov 2006 13:53:15 +0000 Subject: use member() --- urpmi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'urpmi') diff --git a/urpmi b/urpmi index be26e4c2..9e3dd219 100755 --- a/urpmi +++ b/urpmi @@ -23,7 +23,7 @@ use strict; use urpm; use urpm::args; use urpm::msg; -use urpm::util qw(untaint difference2); +use urpm::util qw(untaint difference2 member); #- contains informations to parse installed system. my $urpm = new urpm; @@ -159,7 +159,7 @@ my $command_line = join " ", @ARGV; my @ARGVcopy; # keep a copy, in case we have to restart # Expand *.urpmi arguments -if (grep { $_ eq '--restricted' } @ARGV) { +if (member('--restricted', @ARGV)) { @ARGVcopy = @ARGV; } else { foreach my $a (@ARGV) { -- cgit v1.2.1