support win32_putenv()

p4raw-id: //depot/perl@2898

1 files changed, 1 insertions, 1 deletions

diff --git a/mg.c b/mg.c
index bab5298acb..ce6052f901 100644
--- a/mg.c
+++ b/mg.c
@@ -890,7 +890,7 @@ magic_clear_all_env(SV *sv, MAGIC *mg)
 	    *end = '\0';
 	    my_setenv(cur,Nullch);
 	    *end = '=';
-	    cur += strlen(end+1)+1;
+	    cur = end + strlen(end+1)+2;
 	}
 	else if ((len = strlen(cur)))
 	    cur += len+1;