summaryrefslogtreecommitdiffstats
path: root/perl-install/modules
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-11-25 15:05:53 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-11-25 15:05:53 +0000
commit4bded92d258c2d15b69bff6a84d2634a1de9a896 (patch)
tree7cf2f44a85184505a8fe9e6755eaa583e1ed9d3c /perl-install/modules
parent67a20a8a8956d6972c65f05121a74548df383686 (diff)
downloaddrakx-backup-do-not-use-4bded92d258c2d15b69bff6a84d2634a1de9a896.tar
drakx-backup-do-not-use-4bded92d258c2d15b69bff6a84d2634a1de9a896.tar.gz
drakx-backup-do-not-use-4bded92d258c2d15b69bff6a84d2634a1de9a896.tar.bz2
drakx-backup-do-not-use-4bded92d258c2d15b69bff6a84d2634a1de9a896.tar.xz
drakx-backup-do-not-use-4bded92d258c2d15b69bff6a84d2634a1de9a896.zip
ensure that explanations go into /var/log/explanations is standalone mode
(log::explanations() just calls log::l() at install time)
Diffstat (limited to 'perl-install/modules')
-rw-r--r--perl-install/modules/any_conf.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/modules/any_conf.pm b/perl-install/modules/any_conf.pm
index 28e22bf9b..c7ce2a475 100644
--- a/perl-install/modules/any_conf.pm
+++ b/perl-install/modules/any_conf.pm
@@ -37,7 +37,7 @@ sub get_options {
sub set_options {
my ($conf, $module, $new_option) = @_;
$module = $conf->mapping($module);
- log::l(qq(set option "$new_option" for module "$module"));
+ log::explanations(qq(set option "$new_option" for module "$module"));
$conf->{$module}{options} = $new_option;
}
sub get_parameters {
@@ -53,7 +53,7 @@ sub get_probeall {
sub _set_probeall {
my ($conf, $alias, $modules) = @_;
$conf->{$alias}{probeall} = $modules;
- log::l("setting probeall $alias to $modules");
+ log::explanations("setting probeall $alias to $modules");
}
sub add_probeall {
my ($conf, $alias, $module) = @_;
@@ -73,7 +73,7 @@ sub set_alias {
$module =~ /ignore/ and return;
$module = $conf->mapping($module);
/\Q$alias/ && $conf->{$_}{alias} && $conf->{$_}{alias} eq $module and return $_ foreach keys %$conf;
- log::l("adding alias $alias to $module");
+ log::explanations("adding alias $alias to $module");
$conf->{$alias}{alias} = $module;
$alias;
}
@@ -81,13 +81,13 @@ sub set_alias {
sub remove_alias {
my ($conf, $name) = @_;
- log::l(qq(removing alias "$name"));
+ log::explanations(qq(removing alias "$name"));
$conf->remove_alias_regexp("^$name\$");
}
sub remove_alias_regexp {
my ($conf, $aliased) = @_;
- log::l(qq(removing all aliases that match "$aliased"));
+ log::explanations(qq(removing all aliases that match "$aliased"));
foreach (keys %$conf) {
delete $conf->{$_}{alias} if /$aliased/;
}
@@ -95,7 +95,7 @@ sub remove_alias_regexp {
sub remove_alias_regexp_byname {
my ($conf, $name) = @_;
- log::l(qq(removing all aliases which names match "$name"));
+ log::explanations(qq(removing all aliases which names match "$name"));
foreach (keys %$conf) {
delete $conf->{$_} if /$name/;
}
@@ -105,7 +105,7 @@ sub remove_module {
my ($conf, $module) = @_;
$module = $conf->mapping($module);
$conf->remove_alias($module);
- log::l("removing module $module");
+ log::explanations("removing module $module");
delete $conf->{$module};
0;
}