summaryrefslogtreecommitdiff
path: root/Build/source/utils/psutils/psutils-1.17
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2011-01-10 11:21:15 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2011-01-10 11:21:15 +0000
commit88bfac529169e4b406b23fbd2fb6a0843bf1a150 (patch)
treef6814c2cb79d559953d732b93e4d0447391828a8 /Build/source/utils/psutils/psutils-1.17
parent7c2ab63c28e352e1449c8e95589ec0fa7f9b94d7 (diff)
install linked perl scripts
git-svn-id: svn://tug.org/texlive/trunk@21005 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.pl7
-rw-r--r--Build/source/utils/psutils/psutils-1.17/includeres.pl3
-rw-r--r--Build/source/utils/psutils/psutils-1.17/psmerge.pl3
3 files changed, 8 insertions, 5 deletions
diff --git a/Build/source/utils/psutils/psutils-1.17/extractres.pl b/Build/source/utils/psutils/psutils-1.17/extractres.pl
index b18db0a9c24..c3bb1e92495 100644
--- a/Build/source/utils/psutils/psutils-1.17/extractres.pl
+++ b/Build/source/utils/psutils/psutils-1.17/extractres.pl
@@ -4,7 +4,8 @@
# Copyright (C) Angus J. C. Duggan 1991-1995
# See file LICENSE for details.
-$prog = ($0 =~ s=.*/==);
+$0 =~ s=.*/==;
+$prog = $0;
%resources = (); # list of resources included
%merge = (); # list of resources extracted this time
@@ -27,9 +28,9 @@ while (@ARGV) {
if (defined($ENV{TMPDIR})) { # set body file name
$body = "$ENV{TMPDIR}/body$$.ps";
-elsif (defined($ENV{TEMP})) {
+} elsif (defined($ENV{TEMP})) {
$body = "$ENV{TEMP}/body$$.ps";
-elsif (defined($ENV{TMP})) {
+} 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 48fa24f10d0..7a1b9653e97 100644
--- a/Build/source/utils/psutils/psutils-1.17/includeres.pl
+++ b/Build/source/utils/psutils/psutils-1.17/includeres.pl
@@ -4,7 +4,8 @@
# Copyright (C) Angus J. C. Duggan 1991-1995
# See file LICENSE for details.
-$prog = ($0 =~ s=.*/==);
+$0 =~ s=.*/==;
+$prog = $0;
%extn = ("font", ".pfa", "file", ".ps", "procset", ".ps", # resource extns
"pattern", ".pat", "form", ".frm", "encoding", ".enc");
diff --git a/Build/source/utils/psutils/psutils-1.17/psmerge.pl b/Build/source/utils/psutils/psutils-1.17/psmerge.pl
index a1a9db7c086..881a9926765 100644
--- a/Build/source/utils/psutils/psutils-1.17/psmerge.pl
+++ b/Build/source/utils/psutils/psutils-1.17/psmerge.pl
@@ -5,7 +5,8 @@
# Copyright (C) Angus J. C. Duggan 1991-1995
# See file LICENSE for details.
-$prog = ($0 =~ s=.*/==);
+$0 =~ s=.*/==;
+$prog = $0;
while ($ARGV[0] =~ /^-/) {
$_ = shift;