Changeset 3919 for src/Pugs/Embed.hs

Show
Ignore:
Timestamp:
05/26/05 23:10:37 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
5482
Message:

* marshall pugs execution environment into $pugs::env.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Embed.hs

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