Changeset 3931

Timestamp:

05/27/05 00:45:18 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* err, typo.

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