Changeset 4041 for src/perl5

Timestamp:

05/28/05 06:47:55 (4 years ago)

Author:

clkao

svk:copy_cache_prev:

5515

Message:

Fix roundtrip.t, invoker is now properly set to NULL for non-method call.

Files:

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

src/perl5/perl5.c

@@ -47 +47 @@
         val = pugs_PvToVal(pugs_method);
     }
-    inv = pugs_SvToVal(ST(1));
+    inv = SvOK(ST(1)) ? pugs_SvToVal(ST(1)) : NULL;
 
     stack = (Val **)malloc(sizeof(Val*)*items-1);