Changeset 3876 for src/Pugs/Embed/Perl5.hs

Timestamp:

05/25/05 14:22:52 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5385

Message:

* Fix eval_perl5 building on Mac OS X

Files:

• src/Pugs/Embed/Perl5.hs (modified) (3 diffs)

src/Pugs/Embed/Perl5.hs

@@ -59 +59 @@
 foreign import ccall "perl.h perl_free"
     perl_free :: PerlInterpreter -> IO ()
-foreign import ccall "perl.h Perl_eval_pv"
-    eval_pv :: CString -> Word32 -> IO PerlSV
 foreign import ccall "perl.h boot_DynaLoader"
     boot_DynaLoader :: Ptr () -> IO ()
@@ -73 +71 @@
 foreign import ccall "perl5.h perl5_can"
     perl5_can :: PerlSV -> CString -> IO Bool
+foreign import ccall "perl.h perl5_eval"
+    perl5_eval :: CString -> IO PerlSV
 foreign import ccall "perl5.h perl5_init"
     perl5_init :: CInt -> Ptr CString -> IO PerlInterpreter
@@ -101 +101 @@
 
 evalPerl5 :: String -> IO PerlSV
-evalPerl5 str = do
-    withCString str $ \cstr -> do
-        eval_pv cstr 1
+evalPerl5 str = withCString str perl5_eval
 
 freePerl5 :: PerlInterpreter -> IO ()