diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2005-04-08 15:14:34 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2005-04-08 15:14:34 +0000 |
commit | b0a56eb3a16a83e142a10d1d397d421641452208 (patch) | |
tree | e0182f0e60150ad453179eea4f31189cab9a7679 /perl-install/Xconfig | |
parent | 96a6fde6002e86c376e632268970460159aeafa3 (diff) | |
download | drakx-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.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 { |