summaryrefslogtreecommitdiffstats
path: root/test/links.c
diff options
context:
space:
mode:
authorVailin Choi <vchoi@hdfgroup.org>2008-04-04 04:16:53 (GMT)
committerVailin Choi <vchoi@hdfgroup.org>2008-04-04 04:16:53 (GMT)
commit5ad99f2c31a78aaa954ab59769a4c9bfd41813ca (patch)
tree00d2bebe3941dac9931bda067f7732d840b777a0 /test/links.c
parentc83dbd9c1869639721ca73df403fe3df98b21f09 (diff)
downloadhdf5-5ad99f2c31a78aaa954ab59769a4c9bfd41813ca.zip
hdf5-5ad99f2c31a78aaa954ab59769a4c9bfd41813ca.tar.gz
hdf5-5ad99f2c31a78aaa954ab59769a4c9bfd41813ca.tar.bz2
[svn-r14794] Use putenv() instead of setenv() in test/links.c
(solaris did not support setenv() and unsetenv())
Diffstat (limited to 'test/links.c')
-rw-r--r--test/links.c19
1 files changed, 13 insertions, 6 deletions
diff --git a/test/links.c b/test/links.c
index d517b4d..f940bb1 100644
--- a/test/links.c
+++ b/test/links.c
@@ -2604,6 +2604,10 @@ external_link_env(hid_t fapl, hbool_t new_format)
hid_t fid = (-1); /* File ID */
hid_t gid = (-1); /* Group IDs */
char *envval=NULL;
+ static char *new_env = "HDF5_EXT_PREFIX=.:tmp";
+ static char *env_var = "HDF5_EXT_PREFIX";
+ static envstring[NAME_BUF_SIZE];
+
char filename1[NAME_BUF_SIZE],
filename2[NAME_BUF_SIZE],
filename3[NAME_BUF_SIZE];
@@ -2641,8 +2645,10 @@ external_link_env(hid_t fapl, hbool_t new_format)
if(H5Lcreate_external(filename2, "/A", fid, "ext_link", H5P_DEFAULT, H5P_DEFAULT) < 0) TEST_ERROR
/* get original value for the HDF library environment variable for external link if set */
- envval = HDgetenv("HDF5_EXT_PREFIX");
- setenv("HDF5_EXT_PREFIX", ".:tmp", 1);
+ envval = HDgetenv(env_var);
+ if (HDputenv(new_env) < 0)
+ TEST_ERROR
+
/* Open object through external link */
H5E_BEGIN_TRY {
@@ -2650,10 +2656,11 @@ external_link_env(hid_t fapl, hbool_t new_format)
} H5E_END_TRY;
/* restore value for the environment variable as needed */
- if (envval)
- HDsetenv("HDF5_EXT_PREFIX", envval, 1);
- else
- HDunsetenv("HDF5_EXT_PREFIX");
+ if ((envval != NULL) && (*envval)) {
+ sprintf(envstring, "%s=%s", env_var, envval);
+ if (HDputenv(envstring) < 0)
+ TEST_ERROR
+ }
/* should be able to find the target file from pathnames set via environment variable */
if (gid < 0) {