From: Dominic Dunlop <domo@computer.org>
Date: Thu, 19 Aug 1999 09:48:03 +0000 (+0200)
Subject: [ID 19990819.001] Not OK: perl 5.00560 on powerpc-machten 4.1.1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ecd88f12de2d02174692d015d1d0bf26ee3cbdb;p=p5sagit%2Fp5-mst-13.2.git

[ID 19990819.001] Not OK: perl 5.00560 on powerpc-machten 4.1.1

To: perl5-porters@perl.org
    (UNINSTALLED) [PATCH]
Message-Id: <v03110709b3e165b51dda@[212.24.192.132]>

The PERL_POLLUTE_MALLOC part had to be manually applied.

p4raw-id: //depot/cfgperl@4065
---

diff --git a/hints/machten.sh b/hints/machten.sh
index 7672837..cc663a9 100644
--- a/hints/machten.sh
+++ b/hints/machten.sh
@@ -13,6 +13,9 @@
 #	Martijn Koster <m.koster@webcrawler.com>
 #	Richard Yeh <rcyeh@cco.caltech.edu>
 #
+# Disable shadow password file access: MT 4.1.1 has necessary library
+# functions, but not header file (or documentation)
+#                      -- Dominic Dunlop <domo@computer.org> 990804
 # For now, explicitly disable dynamic loading -- MT 4.1.1 has it,
 # but these hints do not yet support it.
 # Define NOTEDEF_MACHTEN to undo gratuitous Tenon hack to signal.h.
@@ -36,6 +39,13 @@
 #
 # Comments, questions, and improvements welcome!
 #
+# MachTen 4.1.1's support for shadow password file access is incomplete:
+# disable its use completely.
+d_endspent=${d_endspent:-undef}
+d_getspent=${d_getspent:-undef}
+d_getspnam=${d_getspnam:-undef}
+d_setspent=${d_setspent:-undef}
+
 # MachTen 4.1.1 does support dynamic loading, but perl doesn't
 # know how to use it yet.
 usedl=${usedl:-undef}
@@ -191,6 +201,11 @@ Similarly, when you see
 select the default answer: vfork() works, and avoids expensive data
 copying.
 
+You may also see "WHOA THERE!!!" messages concerning \$d_endspent,
+\$d_getspent, \$d_getspnam and \$d_setspent.  In all cases, select the
+default answer: MachTen's support for shadow password file access is
+incomplete, and should not be used.
+
 At the end of Configure, you will see a harmless message
 
 Hmm...You had some extra variables I don't know about...I'll try to keep 'em.
diff --git a/perl.h b/perl.h
index 17c4f2c..0674771 100644
--- a/perl.h
+++ b/perl.h
@@ -470,6 +470,10 @@ register struct op *Perl_op asm(stringify(OP_IN_REGISTER));
 #  include "embed.h"
 #endif
 
+#if defined(NeXT) || defined(__NeXT) || defined (__MACHTEN__)
+#  undef PERL_POLLUTE_MALLOC
+#endif
+
 #define MEM_SIZE Size_t
 
 #if defined(STANDARD_C) && defined(I_STDDEF)