Show
Ignore:
Timestamp:
06/01/05 01:01:23 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
5801
Message:

* s/callPerl5/invokePerl5/ to agree with perl5-side convention

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Embed/Perl5.hs

    r4184 r4229  
    5151vnumToSV = constFail 
    5252 
    53 callPerl5 :: PerlSV -> PerlSV -> [PerlSV] -> PerlSV -> CInt -> IO [PerlSV] 
    54 callPerl5 _ _ _ _ = constFail 
     53invokePerl5 :: PerlSV -> PerlSV -> [PerlSV] -> PerlSV -> CInt -> IO [PerlSV] 
     54invokePerl5 _ _ _ _ = constFail 
    5555 
    5656canPerl5 :: PerlSV -> String -> IO Bool 
    … …  
    171171vnumToSV int = perl5_newSVnv (realToFrac int) 
    172172 
    173 callPerl5 :: PerlSV -> PerlSV -> [PerlSV] -> PugsVal -> CInt -> IO [PerlSV] 
    174 callPerl5 sub inv args env cxt = do 
     173invokePerl5 :: PerlSV -> PerlSV -> [PerlSV] -> PugsVal -> CInt -> IO [PerlSV] 
     174invokePerl5 sub inv args env cxt = do 
    175175    withArray0 nullPtr args $ \argv -> do 
    176176        rv <- perl5_apply sub inv argv env cxt