[project @ 2001-09-17 09:05:28 by sewardj]

Pick up PATH rather than TERM, since the latter ain't always set.

MERGE TO STABLE

testsuite/tests/ghc-regress/lib/System/getEnv001.hs

@@ -4,8 +4,8 @@ import IO ( isDoesNotExistError )
 
 main :: IO ()
 main = do
-    term <- getEnv "TERM"
-    putStrLn "Got $TERM"
+    term <- getEnv "PATH"
+    putStrLn "Got $PATH"
     fish <- getEnv "One fish, two fish, red fish, blue fish"  `catch` getEnv_except
     putStrLn fish
 

testsuite/tests/ghc-regress/lib/System/getEnv001.stdout

-Got $TERM
+Got $PATH