Changeset 3887 for src/perl5/perl5.c

Show
Ignore:
Timestamp:
05/26/05 02:17:16 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
5477
Message:

* Method invocation into Perl 5 now carries the current

context around.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/perl5/perl5.c

    r3876 r3887  
    139139 
    140140SV * 
    141 perl5_call(char *subname, int argc, SV** args) 
     141perl5_call(char *subname, int argc, SV** args, int cxt) 
    142142{ 
    143143    int i; 
    … …  
    155155    PUTBACK; 
    156156 
    157     call_method(subname, G_SCALAR); 
     157    call_method(subname, cxt); 
    158158 
    159159    SPAGAIN; 
    … …  
    169169 
    170170SV * 
    171 perl5_eval(char *code) 
    172 { 
     171perl5_eval(char *code, int cxt) 
     172{ 
     173    /* XXX - does not respect context yet */ 
    173174    return (eval_pv(code, TRUE)); 
    174175}