Changeset 3891 for src/perl5

Timestamp:

05/26/05 02:46:18 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5482

Message:

* perl5_eval now honours Perl 6 side context too.

Files:

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

src/perl5/perl5.c

@@ -171 +171 @@
 perl5_eval(char *code, int cxt)
 {
-    /* XXX - does not respect context yet */
-    return (eval_pv(code, TRUE));
+    dSP;
+    SV* sv = newSVpv(code, 0);
+
+    eval_sv(sv, cxt);
+    SvREFCNT_dec(sv);
+
+    SPAGAIN;
+    sv = POPs;
+    PUTBACK;
+
+    return sv;
 }