From 8d435fcbf880298199a22513e8c1ff7b6541f446 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 17 Aug 2002 13:35:26 +0000 Subject: sort resolutions to default to 1280x1024 instead of 1280x960 --- perl-install/Xconfig/resolution_and_depth.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/Xconfig/resolution_and_depth.pm b/perl-install/Xconfig/resolution_and_depth.pm index ce6239166..50c8816bc 100644 --- a/perl-install/Xconfig/resolution_and_depth.pm +++ b/perl-install/Xconfig/resolution_and_depth.pm @@ -161,7 +161,7 @@ sub choices { #- finding it in @resolutions (well @matching) #- (that way, we check it exists, and we get field "bios" for fbdev) - my @default_resolutions = grep { $_->{Depth} eq $Depth } @matching; + my @default_resolutions = sort { $b->{Y} <=> $a->{Y} } grep { $_->{Depth} eq $Depth } @matching; my $default_resolution = first(grep { $resolution_wanted->{Y} eq $_->{Y} } @default_resolutions) || $default_resolutions[0]; $default_resolution, @resolutions; -- cgit v1.2.1