Changeset 3934 for src/perl5/pugsembed.c

Timestamp:

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

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* segfault solved

Files:

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

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");
     }