Changeset 3930 for src/Pugs/Embed.hs

Timestamp:

05/27/05 00:43:48 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* initialise $pugs::env with tabulaRasa.

Files:

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

src/Pugs/Embed.hs

@@ -29 +29 @@
     return () -}
 evalEmbedded "Perl5" code = do
-    interp <- initPerl5 ""
+    interp <- initPerl5 "" nullSV
     evalPerl5 code nullSV 0
     freePerl5 interp