From b0a56eb3a16a83e142a10d1d397d421641452208 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 8 Apr 2005 15:14:34 +0000 Subject: ugly hack to fix empty ModeLine lines, XFdrake seems to generate some, but where??? at least this allows fixing the pb by re-running XFdrake --- perl-install/Xconfig/xfree.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'perl-install/Xconfig/xfree.pm') diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm index 6d3efa117..b05e25a5e 100644 --- a/perl-install/Xconfig/xfree.pm +++ b/perl-install/Xconfig/xfree.pm @@ -28,6 +28,14 @@ sub read_and_prepare_write { if (my ($Keyboard) = $raw_X->get_InputDevices('Keyboard')) { $Keyboard->{Driver}{val} = 'keyboard'; } + + #- ugly hack to fix empty ModeLine lines, XFdrake seems to generate some, but where??? + #- at least this allows fixing the pb by re-running XFdrake + foreach ($raw_X->get_Sections('Monitor')) { + my $l = $_->{ModeLine} or next; + @$l = grep { $_->{val} } @$l; + } + $raw_X, $before; } sub read { -- cgit v1.2.1