author | Vladimir Marek <Vladimir.Marek@oracle.com> |
Wed, 28 May 2014 10:46:33 +0200 | |
changeset 1926 | d37b02d5beee |
permissions | -rw-r--r-- |
1926
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
1 |
This is in-house developed patch reported at |
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
2 |
https://rt.perl.org/Ticket/Display.html?id=121972 |
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
3 |
|
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
4 |
Expectation is that future perl versions will contain the fix. |
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
5 |
--- perl-5.16.3/util.c 2014-05-28 10:46:26.254431769 +0200 |
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
6 |
+++ perl-5.16.3/util.c 2014-05-28 10:45:56.837881294 +0200 |
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
7 |
@@ -2092,7 +2092,7 @@ Perl_my_setenv(pTHX_ const char *nam, co |
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
8 |
my_setenv_format(environ[i], nam, nlen, val, vlen); |
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
9 |
} else { |
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
10 |
# endif |
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
11 |
-# if defined(__CYGWIN__) || defined(EPOC) || defined(__SYMBIAN32__) || defined(__riscos__) |
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
12 |
+# if defined(__CYGWIN__) || defined(EPOC) || defined(__SYMBIAN32__) || defined(__riscos__) || defined(__sun) |
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
13 |
# if defined(HAS_UNSETENV) |
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
14 |
if (val == NULL) { |
d37b02d5beee
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
15 |
(void)unsetenv(nam); |