Changeset 3930 for src/Pugs/Run.hs

Timestamp:

05/27/05 00:43:48 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* initialise $pugs::env with tabulaRasa.

Files:

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

src/Pugs/Run.hs

@@ -34 +34 @@
 runEvalMain :: Env -> Eval Val -> IO Val
 runEvalMain env eval = withSocketsDo $ do
-    my_perl <- initPerl5 ""
+    my_perl <- initPerl5 "" env
     val     <- runEvalIO env eval
     freePerl5 my_perl