Changeset 3934 for src/perl5

Timestamp:

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

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* segfault solved

Location:

src/perl5

Files:

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

src/perl5/pugsembed.c

@@ -19 +19 @@
     isa[0] = pugs_PvToVal("Code");
     isa[1] = NULL;
-    if (pugs_ValToIv(pugs_Apply("&isa", val, isa))) {
+    if (pugs_ValToIv(pugs_Apply(pugs_PvToVal("&isa"), val, isa))) {
         fprintf(stderr, "got a code!!\n");
     }