diff options
| -rw-r--r-- | rpm-find-leaves | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/rpm-find-leaves b/rpm-find-leaves index 6d32dfe2..978e8904 100644 --- a/rpm-find-leaves +++ b/rpm-find-leaves @@ -5,10 +5,11 @@ use strict; use urpm; use urpm::msg; -my %options; -$options{restrict_group} = 0; -$options{group} = 'System/Libraries'; -$options{root} = ''; +my %options = { + restrict_group => 0, + group => 'System/Libraries', + root => '', +}; my $usage = N("usage: %s [options] where [options] are from @@ -19,13 +20,13 @@ where [options] are from ", $options{group}); while ($_ = shift) { - /^--root$/ and do { + $_ eq '--root' and do { my $root = shift; $root and $options{root} = $root; next; }; - /^-g$/ and do { + $_ eq '-g' and do { $options{restrict_group} = 1; my $group = shift; $group and $options{group} = $group; @@ -47,7 +48,7 @@ my @packages; my %l; my %provides; foreach my $pkg (@packages) { - next if $options{restrict_group} && $pkg->group !~ /$options{group}/i; + next if $options{restrict_group} && $pkg->group !~ /$options{group}/oi; $l{$pkg->name} = 1; push @{$provides{$_}}, $pkg->name foreach $pkg->provides_nosense; } |