summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfigurator.pm11
1 files changed, 9 insertions, 2 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index ca95fc335..18e9a0e23 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -19,6 +19,13 @@ my $tmpconfig = "/tmp/Xconfig";
my ($prefix, %monitors, %standard_monitors_);
+sub xtest {
+ my ($display) = @_;
+ $::isStandalone ?
+ system("DISPLAY=$display /usr/X11R6/bin/xtest") == 0 :
+ c::Xtest($display);
+}
+
sub getVGAMode($) { $_[0]->{card}{vga_mode} || $vgamodes{"640x480x16"}; }
sub readCardsDB {
@@ -479,11 +486,11 @@ sub testFinalConfig {
":9" or c::_exit(0);
}
- do { sleep 1 } until c::Xtest(":9") || waitpid($pid, c::WNOHANG());
+ do { sleep 1 } until xtest(":9") || waitpid($pid, c::WNOHANG());
my $b = before_leaving { unlink $f_err };
- unless (c::Xtest(":9")) {
+ unless (xtest(":9")) {
local $_;
local *F; open F, $f_err;
i: while (<F>) {