diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-14 18:59:28 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-14 18:59:28 +0000 |
| commit | 4657145f8863220ac8250c0aa7019c5ba79e518f (patch) | |
| tree | d24fd0474f9596e161fe992fa712828443b5db2d /perl-install | |
| parent | 012977ffc859562210f5be08adcacadb8a6e0163 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/sbus_probing/main.pm | 8 |
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; } |