diff options
Diffstat (limited to 'Build/source/utils/psutils/psutils-1.17/extractres.pl')
-rw-r--r-- | Build/source/utils/psutils/psutils-1.17/extractres.pl | 7 |
1 files changed, 4 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 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"; |