summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-04-08 15:14:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-04-08 15:14:34 +0000
commitb0a56eb3a16a83e142a10d1d397d421641452208 (patch)
treee0182f0e60150ad453179eea4f31189cab9a7679 /perl-install/Xconfig
parent96a6fde6002e86c376e632268970460159aeafa3 (diff)
downloaddrakx-backup-do-not-use-b0a56eb3a16a83e142a10d1d397d421641452208.tar
drakx-backup-do-not-use-b0a56eb3a16a83e142a10d1d397d421641452208.tar.gz
drakx-backup-do-not-use-b0a56eb3a16a83e142a10d1d397d421641452208.tar.bz2
drakx-backup-do-not-use-b0a56eb3a16a83e142a10d1d397d421641452208.tar.xz
drakx-backup-do-not-use-b0a56eb3a16a83e142a10d1d397d421641452208.zip
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
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 {