summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/Xconfig/test.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/Xconfig/test.pm b/perl-install/Xconfig/test.pm
index 777066420..94ce62d17 100644
--- a/perl-install/Xconfig/test.pm
+++ b/perl-install/Xconfig/test.pm
@@ -49,8 +49,8 @@ sub test {
my $f = $::testing ? $tmpconfig : "/etc/X11/XF86Config.test";
$raw_X->{Xconfig::card::using_xf4($card) ? 'xfree4' : 'xfree3'}->write("$::prefix/$f");
- $ENV{HOME} || $::isInstall or die q($HOME is unset, so I don't know where to put my temporary files);
- my $f_err = "$::prefix$ENV{HOME}/tmp/.drakx.Xoutput";
+ my $f_err = secured_file($::prefix . ($ENV{TMPDIR} || "$ENV{HOME}/tmp") . '/.drakx.Xoutput');
+
my $pid;
unless ($pid = fork()) {
system("xauth add :9 . `mcookie`");