perl 5.003_01: vms/config.vms

Incorporate recent changes to config_h.SH: DB_File macros and BIN_SH
Update default version number
Remove dead code
Correct #defines for non-blocking reads until better sorted out
Remove duplicate I_SYS_STAT

1 files changed, 35 insertions, 52 deletions

diff --git a/vms/config.vms b/vms/config.vms
index 203e479016..e1d609a747 100644
--- a/vms/config.vms
+++ b/vms/config.vms
@@ -72,7 +72,7 @@
  * when Perl is built.  Please do not change it by hand; make
  * any changes to FndVers.Com instead.
  */
-#define ARCHLIB_EXP "/perl_root/lib/VMS_VAX/5_003"    /**/
+#define ARCHLIB_EXP "/perl_root/lib/VMS_VAX/5_00301"  /**/
 
 /* CPPSTDIN:
  *	This symbol contains the first part of the string which will invoke
@@ -134,9 +134,6 @@
  *	trigger the necessary tests.
  */
 #define HASCONST	/**/
-#ifndef HASCONST
-#define const
-#endif
 
 /* HAS_CRYPT:
  *	This symbol, if defined, indicates that the crypt routine is available
@@ -566,11 +563,7 @@
  */
 #define HAS_STRERROR		/**/
 #undef HAS_SYS_ERRLIST	/**/
-#ifdef HAS_STRERROR
-#  define Strerror(e) strerror((e),vaxc$errno)
-#else
-#define Strerror(e) ((e)<0||(e)>=sys_nerr?"unknown":sys_errlist[e]) /**/ /* config-skip */
-#endif
+#define Strerror(e) strerror((e),vaxc$errno)
 
 /* HAS_SYMLINK:
  *	This symbol, if defined, indicates that the symlink routine is available
@@ -1197,12 +1190,6 @@
  */
 #undef	I_LOCALE		/**/
 
-/* I_SYS_STAT:
- *	This symbol, if defined, indicates to the C program that it should
- *	include <sys/stat.h>.
- */
-#define I_SYS_STAT		/**/
-
 /* INTSIZE:
  *	This symbol contains the size of an int, so that the C preprocessor
  *	can make decisions based on it.
@@ -1302,9 +1289,9 @@
  *	a non-blocking file descriptor will return 0 on EOF, and not the value
  *	held in RD_NODATA (-1 usually, in that case!).
  */
-#define VAL_O_NONBLOCK
-#define VAL_EAGAIN
-#define RD_NODATA
+#undef VAL_O_NONBLOCK
+#undef VAL_EAGAIN
+#undef RD_NODATA
 #undef EOF_NONBLOCK
 
 /* OLDARCHLIB_EXP:
@@ -1377,15 +1364,6 @@
  */
 #undef I_SYS_PARAM
 
-/* GNUC_ATTRIBUTE_CHECK:
- *	This symbol indicates the C compiler can check for function attributes,
- *	such as printf formats.
- */
-/* VMS: true for gcc, undef for VAXC/DECC.  This is handled in Descrip.MMS
- * C. Bailey  26-Aug-1994
- */
-/*#define 	GNUC_ATTRIBUTE_CHECK 	/**/
-
 /* VOID_CLOSEDIR:
  *	This symbol, if defined, indicates that the closedir() routine
  *	does not return a value.
@@ -1542,6 +1520,36 @@
  */
 #define STARTPERL ""		/**/
 
+/* Groups_t:
+ *	This symbol holds the type used for the second argument to
+ *	getgroups().  Usually, this is the same of gidtype, but
+ *	sometimes it isn't.  It can be int, ushort, uid_t, etc... 
+ *	It may be necessary to include <sys/types.h> to get any 
+ *	typedef'ed information.  This is only required if you have
+ *	getgroups().
+ */
+#ifdef HAS_GETGROUPS
+#define Groups_t unsigned int	/* Type for 2nd arg to getgroups() */  /* config-skip */
+#endif
+
+/* DB_Prefix_t:
+ *	This symbol contains the type of the prefix structure element
+ *	in the <db.h> header file.  In older versions of DB, it was
+ *	int, while in newer ones it is u_int32_t.
+ */
+/* DB_Hash_t:
+ *	This symbol contains the type of the prefix structure element
+ *	in the <db.h> header file.  In older versions of DB, it was
+ *	int, while in newer ones it is size_t.
+ */
+#undef DB_Hash_t	/**/
+#undef DB_Prefix_t	/**/
+
+/* BIN_SH:
+ *	This variable contains the path to the shell.
+ */
+#define BIN_SH "MCR"		/**/
+
 /* VOIDFLAGS:
  *	This symbol indicates how much support of the void type is given by this
  *	compiler.  What various bits mean:
@@ -1595,31 +1603,6 @@
  */
 #undef I_NETINET_IN	/**/              /* config-skip */
 
-/* Groups_t:
- *	This symbol holds the type used for the second argument to
- *	getgroups().  Usually, this is the same of gidtype, but
- *	sometimes it isn't.  It can be int, ushort, uid_t, etc... 
- *	It may be necessary to include <sys/types.h> to get any 
- *	typedef'ed information.  This is only required if you have
- *	getgroups().
- */
-#ifdef HAS_GETGROUPS
-#define Groups_t unsigned int	/* Type for 2nd arg to getgroups() */  /* config-skip */
-#endif
-
-/* DB_Prefix_t:
- *	This symbol contains the type of the prefix structure element
- *	in the <db.h> header file.  In older versions of DB, it was
- *	int, while in newer ones it is u_int32_t.
- */
-/* DB_Hash_t:
- *	This symbol contains the type of the prefix structure element
- *	in the <db.h> header file.  In older versions of DB, it was
- *	int, while in newer ones it is size_t.
- */
-#undef DB_Hash_t	/**/
-#undef DB_Prefix_t	/**/
-
 /* I_NET_ERRNO:
  *	This symbol, if defined, indicates that <net/errno.h> exists and 
  *	should be included.