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

version» Context lines:

pike.git/src/modules/Perl/perlmod.c:1: - /* $Id: perlmod.c,v 1.24 2001/12/22 00:27:48 nilsson Exp $ */ + /* $Id: perlmod.c,v 1.25 2002/08/15 14:50:27 marcus Exp $ */      #define NO_PIKE_SHORTHAND      #include "builtin_functions.h"   #include "global.h"   #include "svalue.h"   #include "array.h"   #include "stralloc.h"   #include "interpret.h"   #include "module_support.h"
pike.git/src/modules/Perl/perlmod.c:185:    for(d=0;environ[d];d++)    {    int l=strlen(environ[d]);    ps->env[d]=env_blockp;    MEMCPY(env_blockp,environ[d],l+1);    env_blockp+=l+1;    }      #ifdef PIKE_DEBUG    if(env_blockp - ps->env_block > env_block_size) -  fatal("Arglebargle glop-glyf.\n"); +  Pike_fatal("Arglebargle glop-glyf.\n");   #endif       ps->env[d]=0;    }    MT_PERMIT;    result = perl_parse(ps->perl, xs_init, argc, argv, envp ? envp : ps->env);    MT_FORBID;    ps->parsed += 1;    return result;   }