components/perl512/patches/setenv.patch
author Jiri Sasek <Jiri.Sasek@Oracle.COM>
Thu, 31 Jul 2014 01:53:13 -0700
changeset 4109 b8f324d4e07c
parent 1926 d37b02d5beee
permissions -rw-r--r--
17027687 smbd is still not closing stale Samba connections w/ 119758-27 w/ SAMFS

This is in-house developed patch reported at
https://rt.perl.org/Ticket/Display.html?id=121972

Expectation is that future perl versions will contain the fix.
--- perl-5.12.5/util.c	2014-05-28 12:10:02.250325812 +0200
+++ perl-5.12.5/util.c	2014-05-28 12:09:34.437338588 +0200
@@ -1712,7 +1712,7 @@ Perl_my_setenv(pTHX_ const char *nam, co
        my_setenv_format(environ[i], nam, nlen, val, vlen);
     } else {
 # endif
-#   if defined(__CYGWIN__) || defined(EPOC) || defined(__SYMBIAN32__) || defined(__riscos__)
+#   if defined(__CYGWIN__) || defined(EPOC) || defined(__SYMBIAN32__) || defined(__riscos__) || defined(__sun)
 #       if defined(HAS_UNSETENV)
         if (val == NULL) {
             (void)unsetenv(nam);