| author | jenny.yung@oracle.com <jenny.yung@oracle.com> |
| Fri, 15 Aug 2014 14:56:25 -0700 | |
| branch | s11-update |
| changeset 3271 | 5df6b5141bff |
| parent 3197 | 85172c507626 |
| permissions | -rw-r--r-- |
|
3197
85172c507626
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 |
|
85172c507626
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 |
|
85172c507626
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
3 |
|
|
85172c507626
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. |
|
85172c507626
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
5 |
--- perl-5.12.5/util.c 2014-05-28 12:10:02.250325812 +0200 |
|
85172c507626
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
6 |
+++ perl-5.12.5/util.c 2014-05-28 12:09:34.437338588 +0200 |
|
85172c507626
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
7 |
@@ -1712,7 +1712,7 @@ Perl_my_setenv(pTHX_ const char *nam, co |
|
85172c507626
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); |
|
85172c507626
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
9 |
} else {
|
|
85172c507626
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
10 |
# endif |
|
85172c507626
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__) |
|
85172c507626
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) |
|
85172c507626
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) |
|
85172c507626
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
14 |
if (val == NULL) {
|
|
85172c507626
15290783 SUNBT6333830 Perl should use setenv(3c) and unsetenv(3c) calls
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
15 |
(void)unsetenv(nam); |