summaryrefslogtreecommitdiff
path: root/Build/source/utils/psutils/psutils-1.17
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2010-12-23 11:09:58 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2010-12-23 11:09:58 +0000
commitdc9c9350a084881d60de766bab290b9de9883fa5 (patch)
tree66bc67c95f51391d544d75937e3cd409b7a35545 /Build/source/utils/psutils/psutils-1.17
parent47abbac2179669150e15048e32cfda0497d566c6 (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.pl4
-rw-r--r--Build/source/utils/psutils/psutils-1.17/includeres.pl4
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 $_;
}