diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2005-03-22 16:23:18 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2005-03-22 16:23:18 +0000 |
commit | bb895bbaadb5b4e5132bfb28b5f4ee68eae812cd (patch) | |
tree | 09cc46da57fd664f6e3b9564875f8afdc46e984d /perl-install/Xconfig | |
parent | 254d39c735ccd72b687305704079a4c8e7f1d86e (diff) | |
download | drakx-bb895bbaadb5b4e5132bfb28b5f4ee68eae812cd.tar drakx-bb895bbaadb5b4e5132bfb28b5f4ee68eae812cd.tar.gz drakx-bb895bbaadb5b4e5132bfb28b5f4ee68eae812cd.tar.bz2 drakx-bb895bbaadb5b4e5132bfb28b5f4ee68eae812cd.tar.xz drakx-bb895bbaadb5b4e5132bfb28b5f4ee68eae812cd.zip |
put X conf read in Xconfig::main
Diffstat (limited to 'perl-install/Xconfig')
-rw-r--r-- | perl-install/Xconfig/main.pm | 6 |
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 ], |