Add probe for unsetenv ()

Subject: Re: Perl's handling of environ breaks on Solaris 10
Message-ID: <20051010125117.GA27566@mccoy.peters.homeunix.org>

p4raw-id: //depot/perl@25733

diff --git a/Configure b/Configure
index 8991f1a..e445bdb 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -26,7 +26,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Mon Sep 12 15:44:06 CEST 2005 [metaconfig 3.0 PL70]
+# Generated on Mon Oct 10 16:08:59 CEST 2005 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF
@@ -764,6 +764,7 @@ d_semctl_semid_ds=''
 d_semctl_semun=''
 d_union_semun=''
 d_unordered=''
+d_unsetenv=''
 d_usleep=''
 d_usleepproto=''
 d_ustat=''
@@ -17460,6 +17461,10 @@ eval $inlibc
 set unordered d_unordered
 eval $inlibc
 
+: see if unsetenv exists
+set unsetenv d_unsetenv
+eval $inlibc
+
 : see if usleep exists
 set usleep d_usleep
 eval $inlibc
@@ -21323,6 +21328,7 @@ d_umask='$d_umask'
 d_uname='$d_uname'
 d_union_semun='$d_union_semun'
 d_unordered='$d_unordered'
+d_unsetenv='$d_unsetenv'
 d_usleep='$d_usleep'
 d_usleepproto='$d_usleepproto'
 d_ustat='$d_ustat'

diff --git a/Porting/Glossary b/Porting/Glossary
index 3f18f41..95427e2 100644 (file)
--- a/Porting/Glossary
+++ b/Porting/Glossary
@@ -2183,6 +2183,10 @@ d_unordered (d_unordered.U):
        This variable conditionally defines the HAS_UNORDERED symbol, which
        indicates to the C program that the unordered() routine is available.
 
+d_unsetenv (d_unsetenv.U):
+       This variable conditionally defines the HAS_UNSETENV symbol, which
+       indicates to the C program that the unsetenv () routine is available.
+
 d_usleep (d_usleep.U):
        This variable conditionally defines HAS_USLEEP if usleep() is
        available to do high granularity sleeps.

diff --git a/config_h.SH b/config_h.SH
index e4662b2..5ff37c5 100644 (file)
--- a/config_h.SH
+++ b/config_h.SH
@@ -2643,6 +2643,12 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_unordered HAS_UNORDERED            /**/
 
+/* HAS_UNSETENV:
+ *     This symbol, if defined, indicates that the unsetenv () routine is
+ *     available for use.
+ */
+#$d_unsetenv HAS_UNSETENV              /**/
+
 /* HAS_USTAT:
  *     This symbol, if defined, indicates that the ustat system call is
  *     available to query file system statistics by dev_t.

diff --git a/handy.h b/handy.h
index 69ee8d3..e28faa8 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -175,7 +175,7 @@ typedef U64TYPE U64;
 #endif
 
 /* HMB H.Merijn Brand - a placeholder for preparing Configure patches */
-#if defined(HAS_MALLOC_SIZE) && defined(HAS_MALLOC_GOOD_SIZE)
+#if defined(HAS_MALLOC_SIZE) && defined(HAS_MALLOC_GOOD_SIZE) && defined(HAS_UNSETENV)
 /* Not (yet) used at top level, but mention them for metaconfig */
 #endif