From cac479f0e27b8d9cc8a403b494d7ef53e34f9d14 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 25 Apr 2007 10:04:32 +0000 Subject: re-sync after the big svn loss --- perl-install/Xconfig/screen.pm | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 perl-install/Xconfig/screen.pm (limited to 'perl-install/Xconfig/screen.pm') 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; -- cgit v1.2.1