Changeset 8705 for src/Pugs/Run.hs

Timestamp:

01/16/06 18:57:28 (3 years ago)

Author:

audreyt

Message:

* Support for $+var as shorthand for $CALLER::var.
* CALLER now only sees lexical variables in the outer dynamic

scope declared with the "env" scope specifier.

Files:

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

src/Pugs/Run.hs

@@ -158 +158 @@
         , genSym "$*AUTOLOAD" $ MkRef autoSV
         ] ++ classes
+    -- defSVcell <- (genSym "$_" . MkRef) =<< newScalar undef
+    let env' = env
+    {-
+            { envLexical  = defSVcell (envLexical env)
+            , envImplicit = Map.singleton "$_" ()
+            }
+    -}
     unless safeMode $ do
-        initPerl5 "" (Just . VControl $ ControlEnv env{ envDebug = Nothing })
+        initPerl5 "" (Just . VControl $ ControlEnv env'{ envDebug = Nothing })
         return ()
-    initPreludePC env              -- null in first pass
+    initPreludePC env'             -- null in first pass
     where
     hideInSafemode x = if safeMode then MkRef $ constScalar undef else x