[project @ 2000-09-05 10:16:40 by simonmar]

[ghc-hetmet.git] / ghc / utils / stat2resid / stat2resid.prl

diff --git a/ghc/utils/stat2resid/stat2resid.prl b/ghc/utils/stat2resid/stat2resid.prl
index 71e4255..bf0a262 100644 (file)
--- a/ghc/utils/stat2resid/stat2resid.prl
+++ b/ghc/utils/stat2resid/stat2resid.prl
@@ -3,7 +3,7 @@
 #
 # Perl script expect bindings for the following variables to be prepended
 #
-#   TMPDIR libdir
+#   DEFAULT_TMPDIR libdir
 #
 # without them, not much success :-(
 #
@@ -14,8 +14,8 @@ $outsuffix = ".resid.ps";     # change as appropriate
 if ( $ENV{'TMPDIR'} ) { # where to make tmp file names
     $tmpfile = $ENV{'TMPDIR'} . "/$$.resid.data";
 } else {
-    $tmpfile ="${TMPDIR}/$$.resid.data";
-    $ENV{'TMPDIR'} = ${TMPDIR}; # set the env var as well
+    $tmpfile ="${DEFAULT_TMPDIR}/$$.resid.data";
+    $ENV{'TMPDIR'} = ${DEFAULT_TMPDIR}; # set the env var as well
 }
 
 @INC = ( ${libdir} );