summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-03-22 16:23:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-03-22 16:23:18 +0000
commitbb895bbaadb5b4e5132bfb28b5f4ee68eae812cd (patch)
tree09cc46da57fd664f6e3b9564875f8afdc46e984d /perl-install/Xconfig
parent254d39c735ccd72b687305704079a4c8e7f1d86e (diff)
downloaddrakx-backup-do-not-use-bb895bbaadb5b4e5132bfb28b5f4ee68eae812cd.tar
drakx-backup-do-not-use-bb895bbaadb5b4e5132bfb28b5f4ee68eae812cd.tar.gz
drakx-backup-do-not-use-bb895bbaadb5b4e5132bfb28b5f4ee68eae812cd.tar.bz2
drakx-backup-do-not-use-bb895bbaadb5b4e5132bfb28b5f4ee68eae812cd.tar.xz
drakx-backup-do-not-use-bb895bbaadb5b4e5132bfb28b5f4ee68eae812cd.zip
put X conf read in Xconfig::main
Diffstat (limited to 'perl-install/Xconfig')
-rw-r--r--perl-install/Xconfig/main.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/Xconfig/main.pm b/perl-install/Xconfig/main.pm
index eb0d1d22b..3b1189e79 100644
--- a/perl-install/Xconfig/main.pm
+++ b/perl-install/Xconfig/main.pm
@@ -14,8 +14,9 @@ use any;
sub configure_monitor {
- my ($in, $raw_X) = @_;
+ my ($in) = @_;
+ my $raw_X = Xconfig::xfree->read;
my $before = $raw_X->prepare_write;
Xconfig::monitor::configure($in, $raw_X, int($raw_X->get_devices)) or return;
if ($raw_X->prepare_write ne $before) {
@@ -27,8 +28,9 @@ sub configure_monitor {
}
sub configure_resolution {
- my ($in, $raw_X) = @_;
+ my ($in) = @_;
+ my $raw_X = Xconfig::xfree->read;
my $X = {
card => Xconfig::card::from_raw_X($raw_X),
monitors => [ $raw_X->get_monitors ],