diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-12-23 11:09:58 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-12-23 11:09:58 +0000 |
commit | dc9c9350a084881d60de766bab290b9de9883fa5 (patch) | |
tree | 66bc67c95f51391d544d75937e3cd409b7a35545 /Build/source/utils/psutils/psutils-1.17 | |
parent | 47abbac2179669150e15048e32cfda0497d566c6 (diff) |
psutils: extractres: use TEMPDIR or TMP or TEMP
git-svn-id: svn://tug.org/texlive/trunk@20836 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/utils/psutils/psutils-1.17')
-rw-r--r-- | Build/source/utils/psutils/psutils-1.17/extractres.pl | 4 | ||||
-rw-r--r-- | Build/source/utils/psutils/psutils-1.17/includeres.pl | 4 |
2 files changed, 5 insertions, 3 deletions
diff --git a/Build/source/utils/psutils/psutils-1.17/extractres.pl b/Build/source/utils/psutils/psutils-1.17/extractres.pl index d7520c47d33..b18db0a9c24 100644 --- a/Build/source/utils/psutils/psutils-1.17/extractres.pl +++ b/Build/source/utils/psutils/psutils-1.17/extractres.pl @@ -27,6 +27,10 @@ while (@ARGV) { if (defined($ENV{TMPDIR})) { # set body file name $body = "$ENV{TMPDIR}/body$$.ps"; +elsif (defined($ENV{TEMP})) { + $body = "$ENV{TEMP}/body$$.ps"; +elsif (defined($ENV{TMP})) { + $body = "$ENV{TMP}/body$$.ps"; } else { $body = "body$$.ps"; } diff --git a/Build/source/utils/psutils/psutils-1.17/includeres.pl b/Build/source/utils/psutils/psutils-1.17/includeres.pl index 083e0bfa52e..48fa24f10d0 100644 --- a/Build/source/utils/psutils/psutils-1.17/includeres.pl +++ b/Build/source/utils/psutils/psutils-1.17/includeres.pl @@ -28,9 +28,7 @@ while (<>) { local($comment, @res) = split(/\s+/); local($type) = defined($type{$comment}) ? $type{$comment} : shift(@res); local($name) = &filename(@res); - local($inc) = ""; # system include directory - if (open(RES, $name) || open(RES, "$name$extn{$type}") || - open(RES, "$inc/$name") || open(RES, "$inc/$name$extn{$type}")) { + if (open(RES, $name) || open(RES, "$name$extn{$type}")) { while (<RES>) { print $_; } |