summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake/data.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-02 15:15:32 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-02 15:15:32 +0000
commitb8bd48bc09e1c7f5f3d14d2bddfb1e14fdeb105b (patch)
tree5af107934591c869331653cc3a52183d4a8b5b6c /perl-install/harddrake/data.pm
parent6839c0477610db8af144912138d3eea3bacd4cb0 (diff)
downloaddrakx-backup-do-not-use-b8bd48bc09e1c7f5f3d14d2bddfb1e14fdeb105b.tar
drakx-backup-do-not-use-b8bd48bc09e1c7f5f3d14d2bddfb1e14fdeb105b.tar.gz
drakx-backup-do-not-use-b8bd48bc09e1c7f5f3d14d2bddfb1e14fdeb105b.tar.bz2
drakx-backup-do-not-use-b8bd48bc09e1c7f5f3d14d2bddfb1e14fdeb105b.tar.xz
drakx-backup-do-not-use-b8bd48bc09e1c7f5f3d14d2bddfb1e14fdeb105b.zip
remove debug message
Diffstat (limited to 'perl-install/harddrake/data.pm')
-rw-r--r--perl-install/harddrake/data.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index dcf20b152..6697be295 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -65,7 +65,7 @@ our @tree =
grep { $_->{media_type} && $_->{media_type} =~ /^NETWORK/ || member($_->{driver}, @usbnet) || $_->{type} && $_->{type} eq 'network' } @devices }, 1 ],
[ "MODEM", , N("Modem"), "modem.png", "$sbindir/drakconnect", sub { detect_devices::getModem() }, 0 ],
[ "ADSL", , N("ADSL adapters"), "modem.png", "$sbindir/drakconnect", sub {
- require network::adsl; my $a = network::adsl::adsl_detect(); use Data::Dumper; print Data::Dumper->Dump([ $a ], [ 'adsl' ]); $a ? grep { $_ } values %$a : () }, 0 ],
+ require network::adsl; my $a = network::adsl::adsl_detect(); $a ? grep { $_ } values %$a : () }, 0 ],
[ "ISDN", , N("ISDN adapters"), "modem.png", "$sbindir/drakconnect", sub { require network::isdn; my $isdn = network::isdn::isdn_detect_backend();
if_(!is_empty_hash_ref($isdn), $isdn) }, 0 ],
[ "BRIDGE", , N("Bridges and system controllers"), "memory.png", "", sub { grep { $_->{media_type} =~ /BRIDGE|MEMORY_RAM/ && $_->{driver} ne 'nvnet' } @devices }, 0 ],