summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/ChangeLog4
-rw-r--r--perl-install/detect_devices.pm5
2 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 79fea39cf..1c20bf887 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-21 Guillaume Cottenceau <gc@mandrakesoft.com>
+
+ * detect_devices.pm (getNet()): really remove plip in standalone
+
2000-09-21 François Pons <fpons@mandrakesoft.com>
* install_steps.pm, netconnect.pm: changed NETWORKING reference
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index be6ba24d6..dc9f17de2 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -14,7 +14,7 @@ use c;
#-#####################################################################################
#- Globals
#-#####################################################################################
-my @netdevices = map { my $l = $_; map { "$l$_" } (0..3) } (qw(eth tr fddi), $::isStandalone ? () : 'plip');
+my @netdevices = map { my $l = $_; map { "$l$_" } (0..3) } qw(eth tr fddi plip);
my %serialprobe = ();
my $usb_interface = undef;
@@ -167,7 +167,8 @@ sub getDAC960() {
}
sub getNet() {
- grep { hasNetDevice($_) } @netdevices;
+ my @nets = grep { hasNetDevice($_) } @netdevices;
+ $::isStandalone ? grep { !/plip/ } @nets : @nets;
}
sub hasNet() { goto &getNet }