Mercurial > mxe-octave
view src/units-1-fixes.patch @ 3960:bd51e2f81020
mingw: add perl msys module for devel tools
* index.html: add msys-perl, msys-libcrypt
* src/msys-perl.mk: new file
* src/src-msys-perl.mk: new file
* src/msys-libcrypt.mk: new file
* src/src-msys-libcrypt.mk: new file
* Makefile.in: add msys-perl, msys-libcrypt to installer in cross mingw
* dist-files.mk: add libcrypy and perl files
author | John Donoghue <john.donoghue@ieee.org> |
---|---|
date | Mon, 08 Jun 2015 19:21:00 -0400 |
parents | e7cb2340feff |
children |
line wrap: on
line source
--- a/units.c.orig 2013-10-21 11:47:34 -0400 +++ b/units.c 2013-10-21 12:18:24 -0400 @@ -1166,23 +1166,23 @@ int setenv(const char *name, const char *val, int overwrite) { - char *environ; + char *environ1; if (!overwrite && getenv(name) != NULL) return 0; - environ = (char *) malloc(strlen(name) + strlen(val) + 2); - if (!environ) + environ1 = (char *) malloc(strlen(name) + strlen(val) + 2); + if (!environ1) return 1; - strcpy(environ, name); - strcat(environ, "="); - strcat(environ, val); + strcpy(environ1, name); + strcat(environ1, "="); + strcat(environ1, val); /* putenv() doesn't copy its argument, so don't free environ */ #if defined _WIN32 && defined _MSC_VER - return _putenv(environ); + return _putenv(environ1); #else - return putenv(environ); + return putenv(environ1); #endif } #endif