summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-13 15:18:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-13 15:18:22 +0000
commit0c5cf2a95dab62dc86d3d1bf169b255c6ec97138 (patch)
treee7374c8d80b7602f1c257d46e3f4523eeea0c41e /perl-install/any.pm
parent330bf1a7ba6f752689d2d2b462ee9728836b9944 (diff)
downloaddrakx-0c5cf2a95dab62dc86d3d1bf169b255c6ec97138.tar
drakx-0c5cf2a95dab62dc86d3d1bf169b255c6ec97138.tar.gz
drakx-0c5cf2a95dab62dc86d3d1bf169b255c6ec97138.tar.bz2
drakx-0c5cf2a95dab62dc86d3d1bf169b255c6ec97138.tar.xz
drakx-0c5cf2a95dab62dc86d3d1bf169b255c6ec97138.zip
(load_module): add some logging to know what the user did
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 00052540e..583cd69bf 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -685,8 +685,9 @@ For instance, ``io=0x300 irq=7''", $l),
);
}
}
- eval {
+ eval {
my $w = wait_load_module($in, $type, $l, $m);
+ log::l("user asked for loading module $m (type $type, desc $l)");
modules::load($m, $type, @options);
};
if ($@) {