Changeset 3948 for src/perl5

Show
Ignore:
Timestamp:
05/27/05 04:03:10 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
5515
Message:

* method.t all pass!

Location:
src/perl5
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • src/perl5/perl5.c

    r3946 r3948  
    4444 
    4545    /* fprintf(stderr, "back to pugs\n"); */ 
    46     ret = pugs_ValToSv(pugs_Apply (val, inv, stack)); 
     46    ret = pugs_Apply(val, inv, stack); 
    4747    free (stack); 
    4848 
    49     ST(0) = ret; 
     49    sv_setsv(ST(0), ret); 
    5050     
    5151    XSRETURN(1); 

  • src/perl5/pugsembed.c

    r3946 r3948  
    2323    isa[0] = pugs_PvToVal("Code"); 
    2424    isa[1] = NULL; 
    25     if (pugs_ValToIv(pugs_Apply(pugs_PvToVal("&isa"), val, isa))) { 
     25    if (SvTRUE(pugs_Apply(pugs_PvToVal("&isa"), val, isa))) { 
    2626        if (__init) { 
    2727            stack[0] = sv; 
    2828            stack[1] = NULL; 
    29             fprintf (stderr, "isa code\n"); 
     29            /* fprintf (stderr, "isa code\n"); */ 
    3030            sv = perl5_apply(newSVpv("code", 0), newSVpv("pugs::guts", 0), stack, NULL, G_SCALAR); 
    3131        } 

  • src/perl5/pugsembed.h

    r3943 r3948  
    88 
    99extern Val *pugs_Eval ( char *code ); 
    10 extern Val *pugs_Apply ( Val *sub, Val *inv, Val **args ); 
     10extern SV *pugs_Apply ( Val *sub, Val *inv, Val **args ); 
    1111 
    1212extern Val *pugs_IvToVal ( IV iv );