summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-04 22:25:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-04 22:25:15 +0000
commit9602001c7823079a8e8ca0e737a8fe2f6c0db0d2 (patch)
tree6a4a4b5bb040972c82f8f23a7f154b7631d95591 /perl-install/printerdrake.pm
parentb5b714420602230508f199cb392d21c4410a4f1d (diff)
downloaddrakx-9602001c7823079a8e8ca0e737a8fe2f6c0db0d2.tar
drakx-9602001c7823079a8e8ca0e737a8fe2f6c0db0d2.tar.gz
drakx-9602001c7823079a8e8ca0e737a8fe2f6c0db0d2.tar.bz2
drakx-9602001c7823079a8e8ca0e737a8fe2f6c0db0d2.tar.xz
drakx-9602001c7823079a8e8ca0e737a8fe2f6c0db0d2.zip
adapt to new modules.pm
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm10
1 files changed, 3 insertions, 7 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 82b7c11df..b5a15c178 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -143,13 +143,9 @@ sub auto_detect {
my ($in) = @_;
{
my $w = $in->wait_message(_("Test ports"), _("Detecting devices..."));
- modules::get_alias("usb-interface") and eval { modules::load("printer"); sleep(2); };
- foreach (qw(lp parport_pc parport_probe parport)) {
- eval { modules::unload($_); }; #- on kernel 2.4 parport has to be unloaded to probe again
- }
- foreach (qw(parport_pc lp parport_probe)) {
- eval { modules::load($_); }; #- take care as not available on 2.4 kernel (silent error).
- }
+ modules::get_alias("usb-interface") and eval { modules::load("printer") };
+ eval { modules::unload(qw(lp parport_pc parport_probe parport)) }; #- on kernel 2.4 parport has to be unloaded to probe again
+ eval { modules::load(qw(parport_pc lp parport_probe)); }; #- take care as not available on 2.4 kernel (silent error).
}
my $b = before_leaving { eval { modules::unload("parport_probe") } };
detect_devices::whatPrinter();