Changeset 3950 for src/perl5

Timestamp:

05/27/05 04:05:20 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* save a tmp.

Files:

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

src/perl5/perl5.c

@@ -44 +44 @@
 
     /* fprintf(stderr, "back to pugs\n"); */
-    ret = pugs_Apply(val, inv, stack);
+    ST(0) = pugs_Apply(val, inv, stack);
     free (stack);
-
-    sv_setsv(ST(0), ret);
     
     XSRETURN(1);