From c7f7e91919ee72b885d5b3253c608393279945ae Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 2 Jun 2005 02:08:06 +0000 Subject: create detect_devices::probe_name() & detect_devices::probe_unique_name() and use them --- perl-install/Xconfig/monitor.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'perl-install/Xconfig/monitor.pm') diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm index 251f384c8..eda0ff5ad 100644 --- a/perl-install/Xconfig/monitor.pm +++ b/perl-install/Xconfig/monitor.pm @@ -230,11 +230,8 @@ sub probe_using_X { } sub probe_DMI() { - my ($res) = my @res = uniq(map { if_($_->{driver} =~ /^Resolution:(.*)/, $1) } detect_devices::probeall()) or return; - if (@res > 1) { - log::l("oops, more than one resolution from DMI and pci probe: ", join(' ', @res)); - } - generic_flat_panel($res); + my $res = detect_devices::probe_unique_name('Resolution'); + $res && generic_flat_panel($res); } sub generic_flat_panel { -- cgit v1.2.1