summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake/data.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/harddrake/data.pm')
-rw-r--r--perl-install/harddrake/data.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index b4f87025d..21dbb68f0 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -7,14 +7,13 @@ use lib qw(/usr/lib/libDrakX);
use vars qw(@ISA @EXPORT_OK);
use detect_devices;
use MDK::Common;
+use class_discard;
@ISA = qw(Exporter);
@EXPORT_OK = (qw(version tree));
our ($version, $sbindir) = ("1.1.5", "/usr/sbin/");
-sub wait_message {} #- needed to emulate $in required by printerdrake::auto_detect as argument
-
# Update me each time you handle one more devices class (aka configurator)
sub unknown {
grep { $_->{media_type} !~ /tape|DISPLAY|MULTIMEDIA_VIDEO|BRIDGE|NETWORK|MULTIMEDIA_AUDIO/ } detect_devices::probeall(1);
@@ -62,7 +61,7 @@ our @tree =
["UNKNOWN","Unknown/Others", "unknown.png", "" , \&unknown],
["PRINTER","Printer", "hw_printer.png", "$sbindir/printerdrake",
- sub { require printerdrake; printerdrake::auto_detect(bless {}) } ],
+ sub { require printerdrake; printerdrake::auto_detect(class_discard->new) } ],
["SCANNER","Scanner", "scanner.png", "$sbindir/scannerdrake",
sub { require scanner; scanner::findScannerUsbport() }],
["MOUSE","Mouse", "hw_mouse.png", "$sbindir/mousedrake", sub { use mouse; &mouse::detect()}],