Changeset 4199 for src/perl5

Timestamp:

05/31/05 10:55:29 (4 years ago)

Author:

clkao

svk:copy_cache_prev:

5793

Message:

Fix perl5_apply returning multiple values and the use in mkval generating closure.

Location:

src/perl5

Files:

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

src/perl5/perl5.c

@@ -250 +250 @@
         out[i] = newSVsv(POPs);
     }
+    out[count] = NULL;
 
     PUTBACK;

src/perl5/pugsembed.c

@@ -25 +25 @@
     if (SvTRUE(pugs_Apply(pugs_PvToVal("&isa"), val, isa, G_SCALAR))) {
         if (__init) {
+            SV **rv;
             stack[0] = sv;
             stack[1] = NULL;
-            /* fprintf (stderr, "isa code\n"); */
-            sv = perl5_apply(newSVpv("code", 0), newSVpv("pugs::guts", 0), stack, NULL, G_SCALAR);
+            rv = perl5_apply(newSVpv("code", 0), newSVpv("pugs::guts", 0), stack, NULL, G_SCALAR);
+            sv = rv[0];
         }
         else {