[Tarantool-patches] [PATCH 1/1] app: os.setenv() affects os.environ()
Vladislav Shpilevoy
v.shpilevoy at tarantool.org
Fri Feb 7 01:47:06 MSK 2020
os.setenv() and os.environ() are Lua API for
extern char **environ;
int setenv();
The Open Group standardized access points for environment
variables. But there is no a word about that environ never
changes. Programs can't relay on that. For example, addition of
a new variable may cause realloc of the whole environ array, and
therefore change of its pointer value. That was exactly the case
in os.environ() - it was using value of environ array remembered
when Tarantool started.
And os.setenv() could realloc the array and turn the saved pointer
into garbage.
Closes #4733
---
Issue: https://github.com/tarantool/tarantool/issues/4733
Branch: https://github.com/tarantool/tarantool/tree/gerold103/gh-4733-os.environ
src/lua/env.lua | 3 +--
test/app/env.result | 46 +++++++++++++++++++++++++++++++++++++++----
test/app/env.test.lua | 27 +++++++++++++++++++++----
3 files changed, 66 insertions(+), 10 deletions(-)
diff --git a/src/lua/env.lua b/src/lua/env.lua
index b150a48a9..dd1616a84 100644
--- a/src/lua/env.lua
+++ b/src/lua/env.lua
@@ -9,9 +9,8 @@ ffi.cdef[[
int unsetenv(const char *name);
]]
-local environ = ffi.C.environ
-
os.environ = function()
+ local environ = ffi.C.environ
if not environ then
return nil
end
diff --git a/test/app/env.result b/test/app/env.result
index f725b01c0..c584947fb 100644
--- a/test/app/env.result
+++ b/test/app/env.result
@@ -24,6 +24,9 @@ type(env_dict)
---
- table
...
+err = nil
+---
+...
test_run:cmd("setopt delimiter ';'")
---
- true
@@ -31,11 +34,46 @@ test_run:cmd("setopt delimiter ';'")
do
for k, v in pairs(env_dict) do
if type(k) ~= 'string' or type(v) ~= 'string' then
- return false
+ err = {k, v}
+ break
end
end
- return true
-end;
+end
+test_run:cmd("setopt delimiter ''");
---
-- true
+...
+err
+---
+- null
+...
+--
+-- gh-4733: os.setenv() should affect os.environ
+--
+size = 0
+---
+...
+for _, __ in pairs(os.environ()) do size = size + 1 end
+---
+...
+for i = 1, size do os.setenv('gh-4733-test-var'..i, tostring(i)) end
+---
+...
+env = os.environ()
+---
+...
+err = nil
+---
+...
+for i = 1, size do \
+ local value = env['gh-4733-test-var'..i] \
+ if value ~= tostring(i) then \
+ err = {i, value} \
+ break \
+ end \
+end
+---
+...
+err
+---
+- null
...
diff --git a/test/app/env.test.lua b/test/app/env.test.lua
index fbc1ace86..b725f0124 100644
--- a/test/app/env.test.lua
+++ b/test/app/env.test.lua
@@ -9,13 +9,32 @@ do os.getenv('location') end
env_dict = os.environ()
type(env_dict)
+err = nil
test_run:cmd("setopt delimiter ';'")
do
for k, v in pairs(env_dict) do
if type(k) ~= 'string' or type(v) ~= 'string' then
- return false
+ err = {k, v}
+ break
end
end
- return true
-end;
-test_run:cmd("setopt delimiter ''")
+end
+test_run:cmd("setopt delimiter ''");
+err
+
+--
+-- gh-4733: os.setenv() should affect os.environ
+--
+size = 0
+for _, __ in pairs(os.environ()) do size = size + 1 end
+for i = 1, size do os.setenv('gh-4733-test-var'..i, tostring(i)) end
+env = os.environ()
+err = nil
+for i = 1, size do \
+ local value = env['gh-4733-test-var'..i] \
+ if value ~= tostring(i) then \
+ err = {i, value} \
+ break \
+ end \
+end
+err
--
2.21.1 (Apple Git-122.3)
More information about the Tarantool-patches
mailing list