diff --git a/ghc/utils/stat2resid/prefix.txt b/ghc/utils/stat2resid/prefix.txt index 798670fcd419e0fb1add297223cf6f323972882a..0de9d61f253ce98dcc87e6202a97e20130606bb8 100644 --- a/ghc/utils/stat2resid/prefix.txt +++ b/ghc/utils/stat2resid/prefix.txt @@ -5,8 +5,6 @@ # needs to be uncommented and set, if it hasn't already # been set above automatically: # -#$INSTLIBDIR_GHC='/local/fp/lib/fptools/i386-unknown-footos/ghc-2.02'; -# -# -# Pls ignore the gumpf that immediately follows.. +#$libdir='/local/fp/lib/fptools/i386-unknown-footos/ghc-2.02'; # + diff --git a/ghc/utils/stat2resid/stat2resid.prl b/ghc/utils/stat2resid/stat2resid.prl index 80f4b390c905336e720117d036fd1ba08b74ba5b..71e4255f8bdea0c99fabff95c19811082f3cfcb2 100644 --- a/ghc/utils/stat2resid/stat2resid.prl +++ b/ghc/utils/stat2resid/stat2resid.prl @@ -3,10 +3,12 @@ # # Perl script expect bindings for the following variables to be prepended # -# TMPDIR INSTLIBDIR_GHC +# 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 @@ -16,7 +18,7 @@ if ( $ENV{'TMPDIR'} ) { # where to make tmp file names $ENV{'TMPDIR'} = ${TMPDIR}; # set the env var as well } -@INC = ( ${INSTLIBDIR_GHC} ); +@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";