Changeset 3933 for src/perl5/perl5.c

Timestamp:

05/27/05 01:06:48 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* still segfaulting... WIP

Files:

• src/perl5/perl5.c (modified) (1 diff)

src/perl5/perl5.c

@@ -218 +218 @@
 }
 
-void * perl5_set_sv (const char *name, SV *sv)
-{
-    sv_setsv(get_sv(name, 1), sv);
+void * perl5_set_svref (const char *name, void *val)
+{
+    SV *container = get_sv(name, TRUE);
+
+    SV *sv = newSV(0);
+    sv_setref_pv(sv, "pugs", val);
+
+    sv_setsv(container, sv);
 }