Changeset 4229 for src/Pugs/Types/Array.hs
- Timestamp:
- 06/01/05 01:01:23 (4 years ago)
- svk:copy_cache_prev:
- 5801
- Files:
-
- 1 modified
-
src/Pugs/Types/Array.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Types/Array.hs
r4184 r4229 257 257 envSV <- mkVal env 258 258 subSV <- evalPerl5 code envSV (enumCxt cxtItemAny) 259 callPerl5 subSV nullSV args envSV (enumCxt cxtItemAny)259 invokePerl5 subSV nullSV args envSV (enumCxt cxtItemAny) 260 260 return $ case rv of 261 261 [sv] -> PerlSV sv
