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

Timestamp:

05/25/05 03:34:25 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5385

Message:

* PerlSV is now a native Pugs type.

Files:

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

src/Pugs/Embed/Perl5.hs

@@ -13 +13 @@
 initPerl5 _ = return ()
 
-evalPerl5 :: String -> IO ()
+evalPerl5 :: String -> IO PerlSV
 evalPerl5 _ = return ()
 
@@ -54 +54 @@
             perl5_init 3 argv
 
-evalPerl5 :: String -> IO ()
+evalPerl5 :: String -> IO PerlSV
 evalPerl5 str = do
     withCString str $ \cstr -> do
         eval_pv cstr 1
-    return ()
 
 freePerl5 :: PerlInterpreter -> IO ()