diff options
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/Xconfig/test.pm | 4 |
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`"); |