diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2007-04-25 10:04:32 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2007-04-25 10:04:32 +0000 |
commit | cac479f0e27b8d9cc8a403b494d7ef53e34f9d14 (patch) | |
tree | f52ffa06b7d930a5585aebe7710bc177027c9f82 /perl-install/Xconfig/screen.pm | |
parent | 13b5bd878d5d94bae0073e6b4d3ec808e6ae3a6f (diff) | |
download | drakx-cac479f0e27b8d9cc8a403b494d7ef53e34f9d14.tar drakx-cac479f0e27b8d9cc8a403b494d7ef53e34f9d14.tar.gz drakx-cac479f0e27b8d9cc8a403b494d7ef53e34f9d14.tar.bz2 drakx-cac479f0e27b8d9cc8a403b494d7ef53e34f9d14.tar.xz drakx-cac479f0e27b8d9cc8a403b494d7ef53e34f9d14.zip |
re-sync after the big svn loss
Diffstat (limited to 'perl-install/Xconfig/screen.pm')
-rw-r--r-- | perl-install/Xconfig/screen.pm | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/perl-install/Xconfig/screen.pm b/perl-install/Xconfig/screen.pm deleted file mode 100644 index e0a3ebd64..000000000 --- a/perl-install/Xconfig/screen.pm +++ /dev/null @@ -1,29 +0,0 @@ -package Xconfig::screen; # $Id$ - -use diagnostics; -use strict; - -use common; - - -sub configure { - my ($raw_X) = @_; - - my @devices = $raw_X->get_devices; - my @monitors = $raw_X->get_monitors; - - if (@monitors < @devices) { - $raw_X->set_monitors(@monitors, ({}) x (@devices - @monitors)); - @monitors = $raw_X->get_monitors; - } - - my @sections = mapn { - my ($device, $monitor) = @_; - { Device => $device->{Identifier}, Monitor => $monitor->{Identifier} }; - } \@devices, \@monitors; - - $raw_X->set_screens(@sections); - 1; -} - -1; |