Changeset 4084 for src/Pugs/Internals.hs

Timestamp:

05/29/05 03:40:42 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* first cut at $hash.keys for perl5.

Files:

• src/Pugs/Internals.hs (modified) (1 diff)

src/Pugs/Internals.hs

@@ -277 +277 @@
 
 {-|
-Returns @True@ if the environment variable @PUGS_SAFEMODE@ is set to @true@. In
-safemode, most IO prims are forbidden.
--}
+Returns @True@ if the environment variable @PUGS_SAFEMODE@ is set to a
+true value. Most IO primitives are disabled under safe mode.
+-}
+{-# NOINLINE safeMode #-}
 safeMode :: Bool
 safeMode = case (unsafePerformIO $ getEnv "PUGS_SAFEMODE") of
-    Just "true" -> True
-    _           -> False
+    Nothing     -> False
+    Just ""     -> False
+    Just "0"    -> False
+    _           -> True