Changeset 4378 for src/Pugs/Run

Show
Ignore:
Timestamp:
06/04/05 17:53:56 (3 years ago)
Author:
gaal
svk:copy_cache_prev:
5943
Message:

fix to use EvalStyle?

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Run/Perl5.hs

    r4181 r4378  
    5858    str <- peekCString cstr 
    5959    env <- askPerl5Env 
    60     val <- runEvalIO env $ opEval Nothing "<eval>" str 
     60    val <- runEvalIO env $ opEval quiet "<eval>" str 
    6161    mkVal val 
     62    where quiet = MkEvalStyle{evalResult=EvalResultLastValue 
     63                             ,evalError=EvalErrorUndef} 
    6264 
    6365pugs_apply :: PugsVal -> PugsVal -> Ptr PugsVal -> CInt -> IO PerlSV