Changeset 14248 for src/Pugs/Run

Timestamp:

10/12/06 02:10:38 (2 years ago)

Author:

audreyt

Message:

* Don't show trace statements on perl5-to-pugs callbacks

Files:

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

src/Pugs/Run/Perl5.hs

@@ -83 +83 @@
 
 deEnv :: PugsEnv -> IO Env
-deEnv ptr = deRefStablePtr ptr
+deEnv ptr = do
+    env <- deRefStablePtr ptr
+    return env{ envDebug = Nothing }
 
 nullVal :: PugsVal