Changeset 3860 for src/perl5

Show
Ignore:
Timestamp:
05/25/05 04:57:44 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
5385
Message:

* callconv fixed.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/perl5/perl5.c

    r3858 r3860  
    130130{ 
    131131    int i; 
     132    SV *rv; 
     133 
    132134    dSP; 
    133135 
    … …  
    136138 
    137139    PUSHMARK(SP); 
    138     for (i = 0; i <= argc; i++) { 
     140    for (i = 0; i < argc; i++) { 
    139141        XPUSHs(args[i]); 
    140142    } 
    … …  
    143145    call_method(subname, G_SCALAR); 
    144146 
     147    SPAGAIN; 
     148 
     149    rv = newSVsv(POPs); 
     150 
     151    PUTBACK; 
    145152    FREETMPS; 
    146153    LEAVE; 
    147154 
    148     return(POPs); 
     155    return rv; 
    149156}