diff options
| -rw-r--r-- | perl-install/Xconfig/xfree.pm | 8 |
1 files changed, 8 insertions, 0 deletions
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 { |