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

Timestamp:

10/11/05 00:56:12 (3 years ago)

Author:

autrijus

Message:

* finalize Parrot embedding properly and let it flush

correctly, by calling Parrot_exit at exit. leo++

Files:

• src/Pugs/Embed/Perl5.hs (modified) (1 diff)

src/Pugs/Embed/Perl5.hs

@@ -135 +135 @@
                 Just val -> pugs_setenv =<< mkVal val
                 Nothing -> return ()
+            modifyIORef _GlobalFinalizer (>> perl_free interp)
             return interp