diff options
| author | Vailin Choi <vchoi@hdfgroup.org> | 2008-04-04 04:16:53 (GMT) |
|---|---|---|
| committer | Vailin Choi <vchoi@hdfgroup.org> | 2008-04-04 04:16:53 (GMT) |
| commit | 5ad99f2c31a78aaa954ab59769a4c9bfd41813ca (patch) | |
| tree | 00d2bebe3941dac9931bda067f7732d840b777a0 /test/links.c | |
| parent | c83dbd9c1869639721ca73df403fe3df98b21f09 (diff) | |
| download | hdf5-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.c | 19 |
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) { |