diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-30 15:11:07 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-30 15:11:07 +0000 |
| commit | 8206a063cdc1c193b12df1a45cb3a0ee430b5077 (patch) | |
| tree | 45fb29ee11703ddeadeb8fa6d9673bc12d51394b /perl.c | |
| parent | 2ddcc7aa6c936ba8e7a9703319dfd8959bb54574 (diff) | |
| parent | 3e3baf6d63945cb64e829d6e5c70a7d00f3d3d03 (diff) | |
| download | perl-8206a063cdc1c193b12df1a45cb3a0ee430b5077.tar.gz | |
Merge maint-5.004 branch (5.004_01) with mainline.
p4raw-id: //depot/perl@84
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -2485,6 +2485,10 @@ register char **env; sv = newSVpv(s--,0); (void)hv_store(hv, *env, s - *env, sv, 0); *s = '='; +#if defined(__BORLANDC__) && defined(USE_WIN32_RTL_ENV) + /* Sins of the RTL. See note in my_setenv(). */ + (void)putenv(savepv(*env)); +#endif } #endif #ifdef DYNAMIC_ENV_FETCH |