X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2Fstat2resid%2Fstat2resid.prl;h=bf0a26242874134c2b1d7c15b348aeb7d00ac5f4;hb=e3b3e969870bf0ac332252e0d83b37144a7706f9;hp=048981a8f2947692c18d2df6038bd6171d9fd3fc;hpb=e0befe921f5bbfa6daba3f8ff46cdf2a2abad1da;p=ghc-hetmet.git

diff --git a/ghc/utils/stat2resid/stat2resid.prl b/ghc/utils/stat2resid/stat2resid.prl
index 048981a..bf0a262 100644
--- a/ghc/utils/stat2resid/stat2resid.prl
+++ b/ghc/utils/stat2resid/stat2resid.prl
@@ -1,22 +1,24 @@
 #
 # (c) The GRASP/AQUA Project, Glasgow University, 1992-1996
 #
-# *** MSUB does some substitutions here ***
-# *** grep for $( ***
+# Perl script expect bindings for the following variables to be prepended
+#
+#   DEFAULT_TMPDIR libdir
+#
+# without them, not much success :-(
 #
 
-$debug = 0;
+$debug = 0; # first line of script, builds confidence :-)
 $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 = ( ( $(INSTALLING) ) ? '$(INSTLIBDIR_GHC)'
-			   : '$(TOP_PWD)/$(CURRENT_DIR)' );
+@INC = ( ${libdir} );
 
 require('parse-gcstats.prl')   || die "Can't load parse-gcstats.prl!\n";
 require('process-gcstats.prl') || die "Can't load process-gcstats.prl!\n";