summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/data.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 4cd4e957e..6f6c6c4bb 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -50,7 +50,11 @@ our @tree =
grep { $_->{media_type} =~ /^NETWORK/ || member($_->{driver}, @usbnet) || $_->{type} eq 'network' } @devices}],
# ["","Tokenring cards", "Ethernetcard.png", "", \&detect_devices::getNet],
# ["","FDDI cards", "Ethernetcard.png", "", \&detect_devices::getNet],
-# ["","Modem", "Modem.png", "", \&detect_devices::getNet],
+ ["MODEM","Modem", "modem.png", "", sub { require network::modem;
+ my $modem;
+ modem_detect_backend($modem);
+ $modem->{device} ?$modem : {};
+ } ],
# ["","Isdn", "", "", \&detect_devices::getNet]
["BRIDGE","Bridge(s)", "memory.png", "", sub { grep { $_->{media_type} =~ 'BRIDGE' } @devices}],