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

Timestamp:

05/25/05 07:36:10 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5385

Message:

* only look up AUTOLOAD when there is possibly a hit for AUTOLOAD.
* therefore DBI.connect and Digest::MD5.new no longer refers to

the builtin prim connect and new, but rather to their Perl 5
space methods.

Files:

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

src/Pugs/Embed/Perl5.hs

@@ -34 +34 @@
 callPerl5 _ = constFail
 
+canPerl5 :: PerlSV -> String -> IO Bool
+canPerl5 _ = constFail
+
 #else
 
@@ -68 +71 @@
 foreign import ccall "perl5.h perl5_call"
     perl5_call :: CString -> CInt -> Ptr PerlSV -> IO PerlSV
+foreign import ccall "perl5.h perl5_can"
+    perl5_can :: PerlSV -> CString -> IO Bool
 foreign import ccall "perl5.h perl5_init"
     perl5_init :: CInt -> Ptr CString -> IO PerlInterpreter
@@ -92 +97 @@
             perl5_call cstr (toEnum $ length args) argv
 
+canPerl5 :: PerlSV -> String -> IO Bool
+canPerl5 sv meth = withCString meth $ \cstr -> perl5_can sv cstr
+
 evalPerl5 :: String -> IO PerlSV
 evalPerl5 str = do