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).

diff --git a/perl.h b/perl.h
index f5bf952..9766e3e 100644 (file)
--- 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 */