summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-04-23 09:50:41 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-04-23 09:50:41 +0000
commit7c589b73957e7d1a04b1058fd9983a78940dd731 (patch)
tree66c0672efd337ffc9ab95e973d6f322b7cdf46b0
parente9f25a998340b1d9d2d07b4f78bfb328aa4f7053 (diff)
downloaddrakx-7c589b73957e7d1a04b1058fd9983a78940dd731.tar
drakx-7c589b73957e7d1a04b1058fd9983a78940dd731.tar.gz
drakx-7c589b73957e7d1a04b1058fd9983a78940dd731.tar.bz2
drakx-7c589b73957e7d1a04b1058fd9983a78940dd731.tar.xz
drakx-7c589b73957e7d1a04b1058fd9983a78940dd731.zip
(remove_alias, remove_alias_regexp, remove_alias_regexp_byname,
remove_module, set_options) add more explanations
-rw-r--r--perl-install/modules.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 51bab5cae..3b5494220 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -171,6 +171,7 @@ sub get_options {
}
sub set_options {
my ($name, $new_option) = @_;
+ log::l(qq(set option "$new_option" for module "$name"));
$conf{$name}{options} = $new_option;
}
sub add_alias {
@@ -199,11 +200,13 @@ sub remove_probeall {
sub remove_alias($) {
my ($name) = @_;
+ log::l(qq(removing alias "$name"));
remove_alias_regexp("^$name\$");
}
sub remove_alias_regexp($) {
my ($aliased) = @_;
+ log::l(qq(removing all aliases that match "$aliased"));
foreach (keys %conf) {
delete $conf{$_}{alias} if /$aliased/;
}
@@ -211,6 +214,7 @@ sub remove_alias_regexp($) {
sub remove_alias_regexp_byname($) {
my ($name) = @_;
+ log::l(qq(removing all aliases which names match "$name"));
foreach (keys %conf) {
delete $conf{$_} if /$name/;
}
@@ -219,6 +223,7 @@ sub remove_alias_regexp_byname($) {
sub remove_module($) {
my ($name) = @_;
remove_alias($name);
+ log::l("removing module $name");
delete $conf{$name};
0;
}