Changeset 4038 for src/perl5

Show
Ignore:
Timestamp:
05/28/05 06:32:06 (4 years ago)
Author:
clkao
svk:copy_cache_prev:
5515
Message:

Properly invoke pugs object method from perl5.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/perl5/perl5.c

    r3975 r4038  
    4040    } 
    4141    else { 
    42         /* sv_dump (sv); */ 
    43         val = pugs_PvToVal(SvPV_nolen(sv)); 
    44         fprintf(stderr, "from method\n"); 
     42        char pugs_method[128], *method, *fullname; 
     43        fullname = SvPV_nolen(sv); 
     44        method = strrchr(fullname, ':'); 
     45        method = method ? method+1 : fullname; 
     46        snprintf(pugs_method, 128, "&%s", method); 
     47        val = pugs_PvToVal(pugs_method); 
    4548    } 
    4649    inv = pugs_SvToVal(ST(1));