diff options
| author | Mystery Man <unknown@mandriva.org> | 2004-06-15 16:50:22 +0000 |
|---|---|---|
| committer | Mystery Man <unknown@mandriva.org> | 2004-06-15 16:50:22 +0000 |
| commit | 8ea9beca90c410e12593fedfb6e741dbdf8795d0 (patch) | |
| tree | 544a377d0ea57462110009fbbbfd14473390e2a1 /perl-install/Xconfig/screen.pm | |
| parent | b5dc638815c772056e07cd013f5b1674900456d5 (diff) | |
| download | drakx-8ea9beca90c410e12593fedfb6e741dbdf8795d0.tar drakx-8ea9beca90c410e12593fedfb6e741dbdf8795d0.tar.gz drakx-8ea9beca90c410e12593fedfb6e741dbdf8795d0.tar.bz2 drakx-8ea9beca90c410e12593fedfb6e741dbdf8795d0.tar.xz drakx-8ea9beca90c410e12593fedfb6e741dbdf8795d0.zip | |
This commit was manufactured by cvs2svn to create branch 'mandrakesoft'.topic/mandrakesoft
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 89e416a4d..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; |