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

diff --git a/vms/config.vms b/vms/config.vms
index 203e479..e1d609a 100644 (file)
--- 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.