Changeset 3934 for src/perl5/perl5.c

Timestamp:

05/27/05 01:30:01 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* segfault solved

Files:

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

src/perl5/perl5.c

@@ -215 +215 @@
 perl5_get_sv(const char *name)
 {
-    return (get_sv(name, 1));
+    SV *sv = get_sv(name, 1);
+    /* sv_dump(sv); */
+    return sv;
 }
 
 void * perl5_set_svref (const char *name, void *val)
 {
-    SV *container = get_sv(name, TRUE);
+    /* fprintf(stderr, "setsvref: name: %s, mkvalref: %p\n", name, val); */
+
+    SV *container = get_sv("pugs::env", TRUE);
 
     SV *sv = newSV(0);