Changeset 4184 for src/Pugs/Types

Timestamp:

05/31/05 03:47:07 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5706

Message:

* handle multiple return values. It segfaults still --

clkao, please take a look.

Files:

• src/Pugs/Types/Array.hs (modified) (1 diff)

src/Pugs/Types/Array.hs

@@ -253 +253 @@
 evalPerl5Sub :: String -> [PerlSV] -> Eval Val
 evalPerl5Sub code args = do
-    env   <- ask
-    fmap PerlSV . liftIO $ do
+    env <- ask
+    rv  <- liftIO $ do
         envSV <- mkVal env
         subSV <- evalPerl5 code envSV (enumCxt cxtItemAny)
         callPerl5 subSV nullSV args envSV (enumCxt cxtItemAny)
+    return $ case rv of
+        [sv]    -> PerlSV sv
+        _       -> VList (map PerlSV rv)
 
 instance ArrayClass PerlSV where