Show
Ignore:
Timestamp:
05/27/05 03:36:00 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
5515
Message:

* env is nor marshalled.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Embed/Perl5.hs

    r3943 r3945  
    125125            interp <- perl5_init 3 argv 
    126126            case env of 
    127                 Just val -> do 
    128                     ptr <- fmap castStablePtrToPtr $ newStablePtr val 
    129                     pugs_setenv ptr 
     127                Just val -> pugs_setenv =<< mkVal val 
    130128                Nothing -> return () 
    131129            return interp 
     130 
     131mkVal :: (Show a) => a -> IO PugsVal 
     132mkVal val = fmap castStablePtrToPtr $ newStablePtr val 
    132133 
    133134svToVStr :: PerlSV -> IO String