no_comment

1 files changed, 3 insertions, 3 deletions

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 768569bac..414663da3 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -178,17 +178,17 @@ sub hasNetDevice($) { c::hasNetDevice($_[0]) }
 # get_pcmcia_devices provides field "device", used in network.pm
 # => probeall with $probe_type is unsafe
 sub probeall {
-    my ($probe_type, $pcic) = @_;
+    my ($probe_type) = @_;
     require pci_probing::main;
     require sbus_probing::main;
-    pci_probing::main::probe($probe_type), sbus_probing::main::probe(), modules::get_pcmcia_devices($pcic);
+    pci_probing::main::probe($probe_type), sbus_probing::main::probe(), modules::get_pcmcia_devices();
 }
 sub matching_desc {
     my ($regexp) = @_;
     grep { $_->{description} =~ /$regexp/i } probeall();
 }
 sub stringlist { 
-    map { " $_->{description} ($_->{type} $_->{driver})" } probeall(1, @_); 
+    map { " $_->{description} ($_->{type} $_->{driver})" } probeall(1); 
 }
 sub check {
     my ($l) = @_;