diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-06-02 02:08:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-06-02 02:08:06 +0000 |
| commit | c7f7e91919ee72b885d5b3253c608393279945ae (patch) | |
| tree | df8b892cd5327a89000d39d33824c556e90aaf2a /perl-install/install_interactive.pm | |
| parent | e5c9364696dd1de43b51b39cd9f3792c2a50a3cf (diff) | |
| download | drakx-c7f7e91919ee72b885d5b3253c608393279945ae.tar drakx-c7f7e91919ee72b885d5b3253c608393279945ae.tar.gz drakx-c7f7e91919ee72b885d5b3253c608393279945ae.tar.bz2 drakx-c7f7e91919ee72b885d5b3253c608393279945ae.tar.xz drakx-c7f7e91919ee72b885d5b3253c608393279945ae.zip | |
create detect_devices::probe_name() & detect_devices::probe_unique_name() and use them
Diffstat (limited to 'perl-install/install_interactive.pm')
| -rw-r--r-- | perl-install/install_interactive.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm index 8cc936d3d..e5a0ebcb7 100644 --- a/perl-install/install_interactive.pm +++ b/perl-install/install_interactive.pm @@ -17,10 +17,10 @@ use log; sub tellAboutProprietaryModules { my ($o) = @_; - my @l = grep { $_ } map { $_->{driver} =~ /^Bad:(.*)/ && $1 } detect_devices::probeall(); + my @l = detect_devices::probe_name('Bad') or return; $o->ask_warn('', formatAlaTeX( N("Some hardware on your computer needs ``proprietary'' drivers to work. -You can find some information about them at: %s", join(", ", @l)))) if @l; +You can find some information about them at: %s", join(", ", @l)))); } #- unit of $mb is mega bytes, min and max are in sectors, this |