Changeset 3933 for src/Pugs/Run.hs

Timestamp:

05/27/05 01:06:48 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* still segfaulting... WIP

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 "" =<< mkValRef (VControl $ ControlEnv env)
+    my_perl <- initPerl5 "" (Just . VControl $ ControlEnv env)
     val     <- runEvalIO env eval
     freePerl5 my_perl