Changeset 11208 for src/Pugs/Eval

Timestamp:

07/05/06 18:44:43 (2 years ago)

Author:

audreyt

Message:

* szbalint++ requested that we propagate Perl 5 "die" errors into

Perl 6 "die" errors so that it can be caught and handled at "try" site.
We implement it with prepending $@ to each return list.

Files:

• src/Pugs/Eval/Var.hs (modified) (1 diff)

src/Pugs/Eval/Var.hs

@@ -211 +211 @@
                 if not found' then evalExp (App (Var name) Nothing (map (Val . PerlSV) (sv:svs))) else do
                 env     <- ask
-                rv      <- liftIO $ do
+                rv      <- guardIO $ do
                     envSV   <- mkVal (VControl $ ControlEnv env)
                     subSV   <- vstrToSV $ tail name