summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-08-06 00:38:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-08-06 00:38:57 +0000
commitc75193289b79d4c0687aa6a597b51436568f8360 (patch)
tree0dde0958b1d48a729e30be420f9f8c94004b7ef8 /perl-install/modules.pm
parentc5d30320d3d120ccd291ccc7b7271400a4f20e4a (diff)
downloaddrakx-c75193289b79d4c0687aa6a597b51436568f8360.tar
drakx-c75193289b79d4c0687aa6a597b51436568f8360.tar.gz
drakx-c75193289b79d4c0687aa6a597b51436568f8360.tar.bz2
drakx-c75193289b79d4c0687aa6a597b51436568f8360.tar.xz
drakx-c75193289b79d4c0687aa6a597b51436568f8360.zip
no_comment
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm19
1 files changed, 5 insertions, 14 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 88852a039..cf17285e3 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -322,26 +322,17 @@ while (my ($k, $v) = each %drivers) {
1;
-sub module_of_type($) {
+sub module_of_type__4update_kernel {
my ($type) = @_;
my %skip; @skip{@skip_modules_on_stage1} = ();
- grep { !exists $skip{$_} } grep { $drivers{$_}{type} =~ /^($type)$/ } keys %drivers;
+ grep { !exists $skip{$_} } grep { $drivers{$_}{type} =~ /^$type$/ } keys %drivers;
}
-
-sub text_of_type($) {
+sub module_of_type {
my ($type) = @_;
my $alias = $type_aliases{$type};
-
- map { $_->{text} } grep { $_->{type} eq $type || $_->{type} eq $alias } values %drivers;
-}
-
-sub text2driver($) {
- my ($text) = @_;
- foreach (keys %drivers) {
- $drivers{$_}{text} eq $text and return $_;
- }
- die "$text is not a valid module description";
+ grep { $drivers{$_}{type} =~ /^$type|$alias$/ } keys %drivers;
}
+sub module2text { $drivers{$_[0]}{text} }
sub get_alias {
my ($alias) = @_;