[ PATCH ] mymalloc on HP-UX

From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
Message-Id: <20020613095503.2BB2.H.M.BRAND@hccnet.nl>

p4raw-id: //depot/perl@17217

diff --git a/hints/hpux.sh b/hints/hpux.sh
index 1cd190e..7170516 100644 (file)
--- a/hints/hpux.sh
+++ b/hints/hpux.sh
@@ -553,7 +553,26 @@ EOM
 EOCBU
 
 # The mysterious io_xs memory corruption in 11.00 32bit seems to get
-# fixed by not using Perl's malloc.  
+# fixed by not using Perl's malloc.  Flip side is performance loss.
+# So we want mymalloc for all situations possible
+usemymalloc='y'
+case "$usethreads" in
+    $define|true|[yY]*) usemymalloc='n' ;;
+    *)  case "$ccisgcc" in
+           $undef|false|[nN]*)
+               case "$use64bitint" in
+                   $undef|false|[nN]*)
+                       case "$ccflags" in
+                           *-DDEBUGGING*) ;;
+                           *) usemymalloc='n' ;;
+                           esac
+                       ;;
+                   esac
+               ;;
+           esac
+       ;;
+    esac
+
 usemymalloc='n'
 case "$useperlio" in
     $undef|false|[nN]*) usemymalloc='y' ;;