summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--rpm-find-leaves15
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;
}