pike.git / src / modules / Perl / perlmod.c

version» Context lines:

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