From 4b7483f350f69909199a66e32f9ff3bc5ba9c102 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Thu, 17 Feb 2000 18:18:31 -0800
Subject: [PATCH] oops, fixed the bugfix
Rev: src/modules/Perl/perlmod.c:1.10
---
src/modules/Perl/perlmod.c | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/modules/Perl/perlmod.c b/src/modules/Perl/perlmod.c
index fd3975c600..cc180c37a7 100644
--- a/src/modules/Perl/perlmod.c
+++ b/src/modules/Perl/perlmod.c
@@ -197,6 +197,10 @@ static void perlmod_create(INT32 args)
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,7 +212,7 @@ static void perlmod_create(INT32 args)
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;
}
--
GitLab