perl 5.002beta1h patch: perl.h

5.002beta1 attempted some memory optimizations, but unfortunately
they can result in a memory leak problem.  This can be
avoided by #define STRANGE_MALLOC.  I do that here until
consensus is reached on a better strategy for handling the
memory optimizations.

Include maxo for the maximum number of operations (needed
for the Safe extension).

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index f5bf9526bb..9766e3e241 100644
--- a/perl.h
+++ b/perl.h
@@ -9,6 +9,7 @@
 #ifndef H_PERL
 #define H_PERL 1
 #define OVERLOAD
+#define STRANGE_MALLOC
 
 #include "embed.h"
 
@@ -854,6 +855,7 @@ EXT U32		sub_generation;	/* inc to force methods to be looked up again */
 EXT char **	origenviron;
 EXT U32		origalen;
 EXT U32 *	profiledata;
+EXT int		maxo INIT(MAXO);/* Number of ops */
 
 EXT XPV*	xiv_arenaroot;	/* list of allocated xiv areas */
 EXT IV **	xiv_root;	/* free xiv list--shared by interpreters */