fix bugs in shell putenv and getenv style variables. add more unit tests.

2021-04-09 20:19:04 -04:00
parent 08471cb88e
commit a69c5a5cae
4 changed files with 24 additions and 10 deletions
--- a/src/input.cpp
+++ b/src/input.cpp
@ -1250,9 +1250,9 @@ void Input::shell()
    for (int i = 1; i < narg; i++) {
      rv = 0;
 #ifdef _WIN32
-      if (arg[i]) rv = _putenv(arg[i]);
+      if (arg[i]) rv = _putenv(utils::strdup(arg[i]));
 #else
-      if (arg[i]) rv = putenv(arg[i]);
+      if (arg[i]) rv = putenv(utils::strdup(arg[i]));
 #endif
      rv = (rv < 0) ? errno : 0;
      MPI_Reduce(&rv,&err,1,MPI_INT,MPI_MAX,0,world);