pike.git
/
src
/
modules
/
Perl
/
perlmod.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/modules/Perl/perlmod.c:1:
-
/* $Id: perlmod.c,v 1.
14
2000/03/
23
21
:
48
:
38
leif
Exp $ */
+
/* $Id: perlmod.c,v 1.
15
2000/03/
27
00
:
17
:
06
grubba
Exp $ */
#include "builtin_functions.h" #include "global.h" #include "svalue.h" #include "array.h" #include "stralloc.h" #include "interpret.h" #include "module_support.h" #include "threads.h" #include "mapping.h"
pike.git/src/modules/Perl/perlmod.c:424:
{ for(; n > 1; --n) POPs; _pikepush_sv(POPs); } else _push_zerotype(); PUTBACK; FREETMPS; LEAVE; #undef sp } static void perlmod_eval(INT32 args)
-
{
return
_perlmod_eval(args, G_SCALAR);}
+
{ _perlmod_eval(args, G_SCALAR);
}
static void perlmod_eval_list(INT32 args)
-
{
return
_perlmod_eval(args, G_ARRAY);}
+
{ _perlmod_eval(args, G_ARRAY);
}
static void _perlmod_call(INT32 args, int perlflags) { PerlInterpreter *p = PERL; int i, n; char *pv; #define sp _perlsp dSP; #ifdef PIKE_PERLDEBUG fprintf(stderr, "[perlmod_call: args=%d]\n", args); #endif