pike.git/
src/
modules/
Perl/
perlmod.c
Branch:
Tag:
Non-build tags
All tags
No tags
2000-02-18
2000-02-18 02:18:31 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
4b7483f350f69909199a66e32f9ff3bc5ba9c102 (
7
lines) (+
6
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
oops, fixed the bugfix
Rev: src/modules/Perl/perlmod.c:1.10
197:
int env_block_size=0; char *env_blockp;
+
#ifdef DECLARE_ENVIRON
+
extern char **environ;
+
#endif
+
for(d=0;environ[d];d++) env_block_size+=strlen(environ[d])+1;
208:
for(d=0;environ[d];d++) { int l=strlen(environ[d]);
-
THIS->env[
d++
]=env_blockp;
+
THIS->env[
d
]=env_blockp;
MEMCPY(env_blockp,environ[d],l+1); env_blockp+=l+1; }