From b3c2d8a8073aa68a7cc16a919c522c69067f4351 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 21 Aug 2003 14:19:05 +0000 Subject: - use $TMPDIR before using $HOME/tmp - if $HOME doesn't exist, it will use /tmp which is safe when using secured_file() --- perl-install/Xconfig/test.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/Xconfig') 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`"); -- cgit v1.2.1