summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/Xconfig')
-rw-r--r--perl-install/Xconfig/xfree.pm8
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 {