Windows io.launcher security fix

release
Slava Pestov 2007-12-06 02:28:08 -05:00
parent 02cecfa552
commit 5c8e6db77e
1 changed files with 2 additions and 2 deletions

View File

@ -87,9 +87,9 @@ TUPLE: CreateProcess-args
pass-environment? [
[
get-environment
[ swap % "=" % % "\0" % ] assoc-each
[ "=" swap 3append string>u16-alien % ] assoc-each
"\0" %
] "" make >c-ushort-array
] { } make >c-ushort-array
over set-CreateProcess-args-lpEnvironment
] when ;