Changeset 3930 for src/perl5/perl5.c

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/perl5/perl5.c (modified) (1 diff)

src/perl5/perl5.c

@@ -201 +201 @@
 }
 
+void * perl5_set_sv (const char *name, SV *sv)
+{
+    sv_setsv(get_sv(name, 1), sv);
+}
+
 SV *
 perl5_eval(char *code, SV *env, int cxt)