1
0
Fork 0
mirror of https://repo.or.cz/socat.git synced 2025-07-08 21:36:34 +00:00

HP-UX port: unsetenv() might not exist

This commit is contained in:
Gerhard Rieger 2008-09-29 21:16:41 +02:00
parent a0435920f6
commit 618170baf3
4 changed files with 13 additions and 1 deletions

View file

@ -550,7 +550,9 @@ int xiosetenv(const char *varname, const char *value, int overwrite) {
if (Setenv(envname, value, overwrite) < 0) {
Warn3("setenv(\"%s\", \"%s\", 1): %s",
envname, value, strerror(errno));
#if HAVE_UNSETENV
Unsetenv(envname); /* dont want to have a wrong value */
#endif
return -1;
}
return 0;
@ -579,7 +581,9 @@ int xiosetenv2(const char *varname, const char *varname2, const char *value,
if (Setenv(envname, value, overwrite) < 0) {
Warn3("setenv(\"%s\", \"%s\", 1): %s",
envname, value, strerror(errno));
#if HAVE_UNSETENV
Unsetenv(envname); /* dont want to have a wrong value */
#endif
return -1;
}
return 0;