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.
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; }