5.002 beta 1

If you're adventurous, have a look at

    ftp://ftp.sems.com/pub/outgoing/perl5.0/perl5.002beta1.tar.gz

Many thanks to Andy for doing the integration.

Obviously, if you consult the bugs database, you'll note there are
still plenty of buglets that need fixing, and several enhancements that
I've intended to put in still haven't made it in (Hi, Tim and Ilya).
But I think it'll be pretty stable.  And you can start to fiddle around
with prototypes (which are, of course, still totally undocumented).

Packrats, don't worry too much about readvertising this widely.
Nowadays we're on a T1 here, so our bandwidth is okay.

Have the appropriate amount of jollity.

Larry

1 files changed, 56 insertions, 40 deletions

diff --git a/perl.h b/perl.h
index a3ede9c64a..f5bf9526bb 100644
--- a/perl.h
+++ b/perl.h
@@ -32,22 +32,6 @@
  * code can be a lot prettier.  Well, so much for theory.  Sorry, Henry...
  */
 
-#ifdef MYMALLOC
-#   ifdef HIDEMYMALLOC
-#	define malloc Mymalloc
-#	define realloc Myremalloc
-#	define free Myfree
-#   endif
-#   define safemalloc malloc
-#   define saferealloc realloc
-#   define safefree free
-#endif
-
-/* work around some libPW problems */
-#ifdef DOINIT
-EXT char Error[1];
-#endif
-
 /* define this once if either system, instead of cluttering up the src */
 #if defined(MSDOS) || defined(atarist)
 #define DOSISH 1
@@ -85,12 +69,16 @@ EXT char Error[1];
 #endif
 
 #include <stdio.h>
-#ifdef USE_NEXT_CTYPE 
+#ifdef USE_NEXT_CTYPE
 #include <appkit/NXCType.h>
 #else
 #include <ctype.h>
 #endif
 
+#ifdef I_LOCALE
+#include <locale.h>
+#endif
+
 #ifdef METHOD 	/* Defined by OSF/1 v3.0 by ctype.h */
 #undef METHOD
 #endif
@@ -110,6 +98,21 @@ EXT char Error[1];
 #   include <stdlib.h>
 #endif /* STANDARD_C */
 
+/* Maybe this comes after <stdlib.h> so we don't try to change 
+   the standard library prototypes?.  We'll use our own in 
+   proto.h instead.  I guess.  The patch had no explanation.
+*/
+#ifdef MYMALLOC
+#   ifdef HIDEMYMALLOC
+#	define malloc Mymalloc
+#	define realloc Myremalloc
+#	define free Myfree
+#   endif
+#   define safemalloc malloc
+#   define saferealloc realloc
+#   define safefree free
+#endif
+
 #define MEM_SIZE Size_t
 
 #if defined(I_STRING) || defined(__cplusplus)
@@ -340,7 +343,7 @@ EXT char Error[1];
 #	    endif
 #	endif
 #   endif
-#endif 
+#endif
 
 #ifdef FPUTS_BOTCH
 /* work around botch in SunOS 4.0.1 and 4.0.2 */
@@ -537,7 +540,11 @@ typedef I32 (*filter_t) _((int, SV *, int));
 #define FILTER_ISREADER(idx)	   (idx >= AvFILL(rsfp_filters))
 
 #ifdef DOSISH
+# if defined(OS2)
+#   include "os2ish.h"
+# else
 #   include "dosish.h"
+# endif
 #else
 # if defined(VMS)
 #   include "vmsish.h"
@@ -582,6 +589,11 @@ union any {
 #include "mg.h"
 #include "scope.h"
 
+/* work around some libPW problems */
+#ifdef DOINIT
+EXT char Error[1];
+#endif
+
 #if defined(iAPX286) || defined(M_I286) || defined(I80286)
 #   define I286
 #endif
@@ -812,7 +824,7 @@ I32 unlnk _((char*));
 #define SCAN_REPL 2
 
 #ifdef DEBUGGING
-# ifndef register 
+# ifndef register
 #  define register
 # endif
 # define PAD_SV(po) pad_sv(po)
@@ -848,6 +860,7 @@ EXT IV **	xiv_root;	/* free xiv list--shared by interpreters */
 EXT double *	xnv_root;	/* free xnv list--shared by interpreters */
 EXT XRV *	xrv_root;	/* free xrv list--shared by interpreters */
 EXT XPV *	xpv_root;	/* free xpv list--shared by interpreters */
+EXT HE *	he_root;	/* free he list--shared by interpreters */
 
 /* Stack for currently executing thread--context switch must handle this.     */
 EXT SV **	stack_base;	/* stack->array_ary */
@@ -1247,6 +1260,9 @@ IEXT I32 *	Iscreamnext;
 IEXT I32	Imaxscream IINIT(-1);
 IEXT SV *	Ilastscream;
 
+/* shortcuts to misc objects */
+IEXT GV *	Ierrgv;
+
 /* shortcuts to debugging objects */
 IEXT GV *	IDBgv;
 IEXT GV *	IDBline;
@@ -1399,56 +1415,56 @@ extern "C" {
 /* The following must follow proto.h */
 
 #ifdef DOINIT
-MGVTBL vtbl_sv =	{magic_get,
+EXT MGVTBL vtbl_sv =	{magic_get,
 				magic_set,
 					magic_len,
 						0,	0};
-MGVTBL vtbl_env =	{0,	0,	0,	0,	0};
-MGVTBL vtbl_envelem =	{0,	magic_setenv,
+EXT MGVTBL vtbl_env =	{0,	0,	0,	0,	0};
+EXT MGVTBL vtbl_envelem =	{0,	magic_setenv,
 					0,	magic_clearenv,
 							0};
-MGVTBL vtbl_sig =	{0,	0,		 0, 0, 0};
-MGVTBL vtbl_sigelem =	{0,	magic_setsig,
+EXT MGVTBL vtbl_sig =	{0,	0,		 0, 0, 0};
+EXT MGVTBL vtbl_sigelem =	{0,	magic_setsig,
 					0,	0,	0};
-MGVTBL vtbl_pack =	{0,	0,	0,	magic_wipepack,
+EXT MGVTBL vtbl_pack =	{0,	0,	0,	magic_wipepack,
 							0};
-MGVTBL vtbl_packelem =	{magic_getpack,
+EXT MGVTBL vtbl_packelem =	{magic_getpack,
 				magic_setpack,
 					0,	magic_clearpack,
 							0};
-MGVTBL vtbl_dbline =	{0,	magic_setdbline,
+EXT MGVTBL vtbl_dbline =	{0,	magic_setdbline,
 					0,	0,	0};
-MGVTBL vtbl_isa =	{0,	magic_setisa,
+EXT MGVTBL vtbl_isa =	{0,	magic_setisa,
 					0,	0,	0};
-MGVTBL vtbl_isaelem =	{0,	magic_setisa,
+EXT MGVTBL vtbl_isaelem =	{0,	magic_setisa,
 					0,	0,	0};
-MGVTBL vtbl_arylen =	{magic_getarylen,
+EXT MGVTBL vtbl_arylen =	{magic_getarylen,
 				magic_setarylen,
 					0,	0,	0};
-MGVTBL vtbl_glob =	{magic_getglob,
+EXT MGVTBL vtbl_glob =	{magic_getglob,
 				magic_setglob,
 					0,	0,	0};
-MGVTBL vtbl_mglob =	{0,	magic_setmglob,
+EXT MGVTBL vtbl_mglob =	{0,	magic_setmglob,
 					0,	0,	0};
-MGVTBL vtbl_taint =	{magic_gettaint,magic_settaint,
+EXT MGVTBL vtbl_taint =	{magic_gettaint,magic_settaint,
 					0,	0,	0};
-MGVTBL vtbl_substr =	{0,	magic_setsubstr,
+EXT MGVTBL vtbl_substr =	{0,	magic_setsubstr,
 					0,	0,	0};
-MGVTBL vtbl_vec =	{0,	magic_setvec,
+EXT MGVTBL vtbl_vec =	{0,	magic_setvec,
 					0,	0,	0};
-MGVTBL vtbl_pos =	{magic_getpos,
+EXT MGVTBL vtbl_pos =	{magic_getpos,
 				magic_setpos,
 					0,	0,	0};
-MGVTBL vtbl_bm =	{0,	magic_setbm,
+EXT MGVTBL vtbl_bm =	{0,	magic_setbm,
 					0,	0,	0};
-MGVTBL vtbl_uvar =	{magic_getuvar,
+EXT MGVTBL vtbl_uvar =	{magic_getuvar,
 				magic_setuvar,
 					0,	0,	0};
 
 #ifdef OVERLOAD
-MGVTBL vtbl_amagic =       {0,     magic_setamagic,
+EXT MGVTBL vtbl_amagic =       {0,     magic_setamagic,
                                         0,      0,      magic_setamagic};
-MGVTBL vtbl_amagicelem =   {0,     magic_setamagic,
+EXT MGVTBL vtbl_amagicelem =   {0,     magic_setamagic,
                                         0,      0,      magic_setamagic};
 #endif /* OVERLOAD */