Changeset 3887 for src/Pugs/Embed.hs

Show
Ignore:
Timestamp:
05/26/05 02:17:16 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
5477
Message:

* Method invocation into Perl 5 now carries the current

context around.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Embed.hs

    r3538 r3887  
    3030evalEmbedded "Perl5" code = do 
    3131    interp <- initPerl5 "" 
    32     evalPerl5 code 
     32    evalPerl5 code 0 
    3333    freePerl5 interp 
    3434evalEmbedded s _ = fail $ "Cannot evaluate in " ++ s