Changeset 4086 for src/perl5

Timestamp:

05/29/05 04:09:52 (4 years ago)

Author:

clkao

svk:copy_cache_prev:

5515

Message:

Make multiple returned value into AV for perl5_apply.

Files:

• src/perl5/perl5.c (modified) (2 diffs)

src/perl5/perl5.c

@@ -216 +216 @@
     SV *sv;
     void *old_env = pugs_getenv();
+    int count, i;
 
     dSP;
@@ -234 +235 @@
 
     if (inv != NULL) {
-        call_method(SvPV_nolen(sub), cxt);
+        count = call_method(SvPV_nolen(sub), cxt);
     }
     else {
-        call_sv(sub, cxt);
+        count = call_sv(sub, cxt);
     }
 
     SPAGAIN;
 
-    rv = newSVsv(POPs);
+    if (count == 1) {
+        rv = newSVsv(POPs);
+    }
+    else {
+        rv = (SV *)newAV();
+        for (i=0; i<count; ++i) {
+            av_push ((AV *)rv, POPs);
+        }
+    }
 
     PUTBACK;