Changeset 15325 for src/Pugs/Prim/FileTest.hs
- Timestamp:
- 02/22/07 18:04:22 (21 months ago)
- Files:
-
- 1 modified
-
src/Pugs/Prim/FileTest.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Prim/FileTest.hs
r15324 r15325 51 51 envSV <- liftIO $ mkEnv env 52 52 argSV <- fromVal v 53 subSV <- liftIO $ evalPerl5 ("sub { warn $_[0];-" ++ testOp ++ " $_[0] }") envSV (enumCxt cxtItemAny)53 subSV <- liftIO $ evalPerl5 ("sub { -" ++ testOp ++ " $_[0] }") envSV (enumCxt cxtItemAny) 54 54 rv <- runInvokePerl5 subSV nullSV [argSV] 55 55 return $ case rv of
