Changeset 3935

Timestamp:

05/27/05 01:51:15 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* init perl5 as part of prepareEnv to avoid loop

Files:

• src/Pugs/Run.hs (modified) (3 diffs)

src/Pugs/Run.hs

@@ -34 +34 @@
 runEvalMain :: Env -> Eval Val -> IO Val
 runEvalMain env eval = withSocketsDo $ do
-    my_perl <- initPerl5 "" (Just . VControl $ ControlEnv env)
     val     <- runEvalIO env eval
-    freePerl5 my_perl
+    -- freePerl5 my_perl
     return val
 
@@ -102 +101 @@
             [x] -> op1Exit x     -- needs refactoring (out of Prim)
             _   -> op1Exit undef
-    emptyEnv name $
+    env <- emptyEnv name $
         [ genSym "@*ARGS"       $ MkRef argsAV
         , genSym "@*INC"        $ MkRef incAV
@@ -138 +137 @@
         , genSym "$*AUTOLOAD" $ MkRef autoSV
         ]
+    initPerl5 "" (Just . VControl $ ControlEnv env)
+    return env
 
 {-|