Searched refs:perl_subnames (Results 1 – 3 of 3) sorted by relevance
/dports/comms/qico/qico-15673bf/src/ |
H A D | perl.c | 84 static char *perl_subnames[]={ variable 286 for(rc=0,perl_nc=0;rc<sizeof(perl_subnames)/sizeof(*perl_subnames);rc++) in perl_init() 287 if(perl_get_cv(perl_subnames[rc],FALSE))perl_nc|=1<<rc; in perl_init() 327 DEBUG(('P',4,"perl_on_std(%s)",perl_subnames[sub])); in perl_on_std() 332 perl_call_pv(perl_subnames[sub],G_EVAL|G_VOID|G_NOARGS); in perl_on_std() 356 perl_call_pv(perl_subnames[PERL_ON_LOG],G_EVAL|G_SCALAR|G_NOARGS); in perl_on_log() 391 perl_call_pv(perl_subnames[PERL_ON_CALL],G_EVAL|G_SCALAR|G_NOARGS); in perl_on_call() 533 perl_call_pv(perl_subnames[PERL_ON_RECV],G_EVAL|G_SCALAR|G_NOARGS); in perl_on_recv() 563 perl_call_pv(perl_subnames[PERL_END_RECV],G_EVAL|G_SCALAR|G_NOARGS); in perl_end_recv() 602 perl_call_pv(perl_subnames[PERL_ON_SEND],G_EVAL|G_SCALAR|G_NOARGS); in perl_on_send() [all …]
|
/dports/net/binkd/binkd-1.0.4/ |
H A D | perlhooks.c | 904 char *perl_subnames[] = { variable 1036 Log(LL_ERR, "Perl %s error: %s", perl_subnames[sub], s); in sub_err() 1039 Log(LL_ERR, "Perl %s error below:", perl_subnames[sub]); in sub_err() 1629 for (i = 0; i < sizeof(perl_subnames)/sizeof(perl_subnames[0]); i++) { in perl_init() 1649 perl_call_pv(perl_subnames[PERL_ON_EXIT], G_EVAL|G_VOID); in perl_on_exit() 1929 perl_call_pv(perl_subnames[PERL_ON_START], G_EVAL|G_VOID); in perl_on_start() 1979 perl_call_pv(perl_subnames[PERL_ON_CALL], G_EVAL|G_SCALAR); in perl_on_call() 2049 perl_call_pv(perl_subnames[PERL_ON_ERROR], G_EVAL|G_SCALAR); in perl_on_error() 2475 perl_call_pv(perl_subnames[PERL_ON_LOG], G_EVAL|G_SCALAR); in perl_on_log() 2524 perl_call_pv(perl_subnames[PERL_ON_SEND], G_EVAL|G_SCALAR); in perl_on_send() [all …]
|
H A D | perlhooks.h | 88 extern char *perl_subnames[]; /* names for perl subs */
|