Changeset 11266 for src/Pugs/Eval

Timestamp:

07/07/06 19:40:30 (2 years ago)

Author:

audreyt

Message:

* szbalint++ requested that Perl5-land errors should be

propagated as full SVs, not strings, in Perl6-land.

Implement this by making an instance of (MonadError? Eval Val)
and make throwError the Val-throwing variant of the
String-throwing "fail"

Files:

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

src/Pugs/Eval/Var.hs

@@ -215 +215 @@
                     subSV   <- vstrToSV $ tail name
                     invokePerl5 subSV sv svs envSV (enumCxt $ envContext env)
-                return $ case rv of
-                    [sv]    -> PerlSV sv
-                    _       -> VList (map PerlSV rv)
+                case rv of
+                    Right [x]   -> return $ PerlSV x
+                    Right xs    -> return $ VList (map PerlSV xs)
+                    Left err    -> throwError $ PerlSV err
             }
     possiblyBuildMetaopVCode :: String -> Eval (Maybe VCode)