summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig/main.pm6
-rwxr-xr-xperl-install/standalone/XFdrake4
2 files changed, 6 insertions, 4 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 ],
diff --git a/perl-install/standalone/XFdrake b/perl-install/standalone/XFdrake
index 47f138e47..65079bd7c 100755
--- a/perl-install/standalone/XFdrake
+++ b/perl-install/standalone/XFdrake
@@ -49,9 +49,9 @@ $configure_this ||= $::auto ? 'auto_install' : 'everything';
} elsif ($configure_this eq 'auto_install') {
Xconfig::main::configure_everything_auto_install(Xconfig::default::configure($in->do_pkgs), $in->do_pkgs, {}, $options);
} elsif ($configure_this eq 'monitor') {
- Xconfig::main::configure_monitor($in, Xconfig::xfree->read);
+ Xconfig::main::configure_monitor($in);
} elsif ($configure_this eq 'resolution') {
- Xconfig::main::configure_resolution($in, Xconfig::xfree->read);
+ Xconfig::main::configure_resolution($in);
}
};
if (!$::auto) {