summaryrefslogtreecommitdiffstats
path: root/perl-install/sbus_probing
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-14 18:59:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-14 18:59:28 +0000
commit4657145f8863220ac8250c0aa7019c5ba79e518f (patch)
treed24fd0474f9596e161fe992fa712828443b5db2d /perl-install/sbus_probing
parent012977ffc859562210f5be08adcacadb8a6e0163 (diff)
downloaddrakx-backup-do-not-use-4657145f8863220ac8250c0aa7019c5ba79e518f.tar
drakx-backup-do-not-use-4657145f8863220ac8250c0aa7019c5ba79e518f.tar.gz
drakx-backup-do-not-use-4657145f8863220ac8250c0aa7019c5ba79e518f.tar.bz2
drakx-backup-do-not-use-4657145f8863220ac8250c0aa7019c5ba79e518f.tar.xz
drakx-backup-do-not-use-4657145f8863220ac8250c0aa7019c5ba79e518f.zip
fix bug & cleanup (to have less warning in debug mode)
Diffstat (limited to 'perl-install/sbus_probing')
-rw-r--r--perl-install/sbus_probing/main.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/sbus_probing/main.pm b/perl-install/sbus_probing/main.pm
index 4aed43459..96d50663b 100644
--- a/perl-install/sbus_probing/main.pm
+++ b/perl-install/sbus_probing/main.pm
@@ -66,10 +66,10 @@ my %sbus_table_video = (
1;
-sub prom_getint($) { unpack "I", c::prom_getproperty($_[0]) }
+sub prom_getint { unpack "I", c::prom_getproperty($_[0]) }
#- update $@sbus_probed according to SBUS detection.
-sub prom_walk($$$$) {
+sub prom_walk {
my ($sbus_probed, $node, $sbus, $ebus) = @_;
my ($prob_name, $prob_type) = (c::prom_getstring("name"), c::prom_getstring("device_type"));
my ($nextnode, $nsbus, $nebus) = (undef, $sbus, $ebus);
@@ -129,10 +129,10 @@ sub prom_walk($$$$) {
sub probe {
eval { modules::load("openprom") } if arch() =~ /sparc/;
- my $root_node = c::prom_open();
+ my $root_node = c::prom_open() or return;
my @l;
prom_walk(\@l, $root_node, 0, 0);
c::prom_close();
- map { my %l; @l{qw(type description drivers)} = @$_ } @l;
+ map { my %l; @l{qw(type description drivers)} = @$_; \%l } @l;
}