Changeset 4270 for src/Pugs/Types/Array.hs

Timestamp:

06/01/05 17:46:40 (4 years ago)

Author:

theorbtwo

svk:copy_cache_prev:

5861

Message:

Hackish Code.body support (presently useless as well, as there aren't any
methods on Code::Exp, but that should change soon).

Files:

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

src/Pugs/Types/Array.hs

@@ -247 +247 @@
     array_fetchVal pv 1    = return . snd =<< readIVar pv
     array_fetchVal _  _    = return undef
-    array_storeVal _ _ _   = retConstError undef
-    array_storeElem _ _ _  = retConstError undef
-    array_deleteElem _ _   = retConstError undef
+    array_storeVal a _ _   = retConstError $ VStr $ show a
+    array_storeElem a _ _  = retConstError $ VStr $ show a
+    array_deleteElem a _   = retConstError $ VStr $ show a
 
 evalPerl5Sub :: String -> [PerlSV] -> Eval Val