diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2006-11-03 13:53:15 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2006-11-03 13:53:15 +0000 |
commit | f5f2b431771d5a7021030c4b82fde677157ded72 (patch) | |
tree | f0149027f65f5b48c06042c42f1379853a2e759c | |
parent | b3968d3a68cd5c4314ac4267508e654cadaf0762 (diff) | |
download | urpmi-f5f2b431771d5a7021030c4b82fde677157ded72.tar urpmi-f5f2b431771d5a7021030c4b82fde677157ded72.tar.gz urpmi-f5f2b431771d5a7021030c4b82fde677157ded72.tar.bz2 urpmi-f5f2b431771d5a7021030c4b82fde677157ded72.tar.xz urpmi-f5f2b431771d5a7021030c4b82fde677157ded72.zip |
use member()
-rwxr-xr-x | urpmi | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) { |