Changeset 4084 for src/Pugs/Types/Hash.hs
- Timestamp:
- 05/29/05 03:40:42 (4 years ago)
- svk:copy_cache_prev:
- 5515
- Files:
-
- 1 modified
-
src/Pugs/Types/Hash.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Types/Hash.hs
r3961 r4084 130 130 evalPerl5Sub "sub { $_[0]->{$_[1]} = $_[2] }" [sv, keySV, valSV] 131 131 return () 132 hash_fetchKeys sv = do 133 keysSV <- evalPerl5Sub "sub { join $/, keys %{$_[0]} }" [sv] 134 keysStr <- fromVal keysSV 135 return $ lines keysStr 132 136 hash_storeElem _ _ _ = retConstError undef 133 137 hash_deleteElem _ _ = retConstError undef
