diff options
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 |