(fake) use of getcwd.

p4raw-id: //depot/cfgperl@5047

diff --git a/Configure b/Configure
index e8ea285..ab494ff 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Wed Feb  9 04:26:02 EET 2000 [metaconfig 3.0 PL70]
+# Generated on Wed Feb  9 04:55:51 EET 2000 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.com)
 
 cat >/tmp/c1$$ <<EOF
@@ -362,6 +362,7 @@ d_ftello=''
 d_ftime=''
 d_gettimeod=''
 d_Gconvert=''
+d_getcwd=''
 d_getgrent=''
 d_getgrps=''
 d_gethbyaddr=''
@@ -8941,6 +8942,10 @@ case "$longsize" in
 8) echo "(Your long is 64 bits, so you could use ftell.)" ;;
 esac
 
+: see if getcwd exists
+set getcwd d_getcwd
+eval $inlibc
+
 : see if getgrent exists
 set getgrent d_getgrent
 eval $inlibc
@@ -14630,6 +14635,7 @@ d_fstatfs='$d_fstatfs'
 d_fstatvfs='$d_fstatvfs'
 d_ftello='$d_ftello'
 d_ftime='$d_ftime'
+d_getcwd='$d_getcwd'
 d_getgrent='$d_getgrent'
 d_getgrps='$d_getgrps'
 d_gethbyaddr='$d_gethbyaddr'

diff --git a/Porting/Glossary b/Porting/Glossary
index ec69037..8784524 100644 (file)
--- a/Porting/Glossary
+++ b/Porting/Glossary
@@ -606,6 +606,11 @@ d_Gconvert (d_gconvert.U):
        d_Gconvert='gcvt((x),(n),(b))'
        d_Gconvert='sprintf((b),"%.*g",(n),(x))'
 
+d_getcwd (d_getcwd.U):
+       This variable conditionally defines the HAS_GETCWD symbol, which
+       indicates to the C program that the getcwd() routine is available
+       to get the current working directory.
+
 d_getgrent (d_getgrent.U):
        This variable conditionally defines the HAS_GETGRENT symbol, which
        indicates to the C program that the getgrent() routine is available

diff --git a/Porting/config.sh b/Porting/config.sh
index 5098924..6e837e3 100644 (file)
--- a/Porting/config.sh
+++ b/Porting/config.sh
@@ -8,7 +8,7 @@
 
 # Package name      : perl5
 # Source directory  : .
-# Configuration time: Wed Feb  9 04:06:18 EET 2000
+# Configuration time: Wed Feb  9 04:57:13 EET 2000
 # Configured by     : jhi
 # Target system     : osf1 alpha.hut.fi v4.0 878 alpha 
 
@@ -59,7 +59,7 @@ ccflags='-pthread -std -DLANGUAGE_C'
 ccsymbols='__alpha=1 __LANGUAGE_C__=1 __osf__=1 __unix__=1 _LONGLONG=1 _SYSTYPE_BSD=1 SYSTYPE_BSD=1 unix=1'
 cf_by='jhi'
 cf_email='yourname@yourhost.yourplace.com'
-cf_time='Wed Feb  9 04:06:18 EET 2000'
+cf_time='Wed Feb  9 04:57:13 EET 2000'
 charsize='1'
 chgrp=''
 chmod=''
@@ -158,6 +158,7 @@ d_fstatfs='define'
 d_fstatvfs='define'
 d_ftello='undef'
 d_ftime='undef'
+d_getcwd='define'
 d_getgrent='define'
 d_getgrps='define'
 d_gethbyaddr='define'
@@ -494,7 +495,7 @@ i_varhdr='stdarg.h'
 i_vfork='undef'
 ignore_versioned_solibs=''
 inc_version_list=' '
-inc_version_list_init='""'
+inc_version_list_init='0'
 incpath=''
 inews=''
 installarchlib='/opt/perl/lib/5.5.650/alpha-dec_osf-thread-multi'

diff --git a/Porting/config_H b/Porting/config_H
index 2c78b54..97d87e8 100644 (file)
--- a/Porting/config_H
+++ b/Porting/config_H
@@ -17,7 +17,7 @@
 /*
  * Package name      : perl5
  * Source directory  : .
- * Configuration time: Wed Feb  9 04:06:18 EET 2000
+ * Configuration time: Wed Feb  9 04:57:13 EET 2000
  * Configured by     : jhi
  * Target system     : osf1 alpha.hut.fi v4.0 878 alpha 
  */
@@ -1382,6 +1382,12 @@
  */
 #define Gconvert(x,n,t,b) gcvt((x),(n),(b))
 
+/* HAS_GETCWD:
+ *     This symbol, if defined, indicates that the getcwd routine is
+ *     available to get the current working directory.
+ */
+#define HAS_GETCWD             /**/
+
 /* HAS_GETGRENT:
  *     This symbol, if defined, indicates that the getgrent routine is
  *     available for sequential access of the group database.
@@ -2386,7 +2392,7 @@
  *     for a C initialization string.  See the inc_version_list entry
  *     in Porting/Glossary for more details.
  */
-#define PERL_INC_VERSION_LIST ""               /**/
+#define PERL_INC_VERSION_LIST 0                /**/
 
 /* INSTALL_USR_BIN_PERL:
  *     This symbol, if defined, indicates that Perl is to be installed

diff --git a/config_h.SH b/config_h.SH
index 3fb93ae..633c062 100644 (file)
--- a/config_h.SH
+++ b/config_h.SH
@@ -1396,6 +1396,12 @@ sed <<!GROK!THIS! >config.h -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un-
  */
 #define Gconvert(x,n,t,b) $d_Gconvert
 
+/* HAS_GETCWD:
+ *     This symbol, if defined, indicates that the getcwd routine is
+ *     available to get the current working directory.
+ */
+#$d_getcwd HAS_GETCWD          /**/
+
 /* HAS_GETGRENT:
  *     This symbol, if defined, indicates that the getgrent routine is
  *     available for sequential access of the group database.

diff --git a/perl.h b/perl.h
index b3a697e..2139845 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -3179,6 +3179,8 @@ typedef struct am_table_short AMTS;
    HAS_MKSTEMPS
    HAS_MKDTEMP
 
+   HAS_GETCWD
+
    HAS-MMAP
    HAS_MPROTECT
    HAS_MSYNC