X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=hints%2Fsunos_4_1.sh;h=4f06d6e36059a222b3cbb13a677bfc786badc817;hb=16816334e212c70aca1836b4031924af481891ad;hp=4585d793d76cd56222435389c1cc06dc52b8f36e;hpb=bd89102fe7784367e3eeddc7cefae29defae903a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/hints/sunos_4_1.sh b/hints/sunos_4_1.sh
index 4585d79..4f06d6e 100644
--- a/hints/sunos_4_1.sh
+++ b/hints/sunos_4_1.sh
@@ -1,6 +1,6 @@
 # hints/sunos_4_1.sh
 # Last modified:  Wed May 27 11:00:02 EDT 1998
-# Andy Dougherty  <doughera@lafcol.lafayette.edu>
+# Andy Dougherty  <doughera@lafayette.edu>
 
 case "$cc" in
 *gcc*)	usevfork=false 
@@ -25,8 +25,20 @@ d_tzname='undef'
 # The gcc fix-includes script exposes those incorrect prototypes.
 # There may be other examples as well.  Volunteers are welcome to
 # track them all down :-).  In the meantime, we'll just skip unistd.h
-# for SunOS in most of the code.   (However, see ext/POSIX/hints/sunos_4.pl.)
+# for SunOS in most of the code.   
+# However, see ext/POSIX/hints/sunos_4.pl for one exception.
 i_unistd='undef'
+# See util.c for another:  We need _SC_OPEN_MAX, which is in
+# <unistd.h>.
+
+# fflush(NULL) will core dump on SunOS 4.1.3.  In util.c we'll
+# try explicitly fflushing all open files.  Unfortunately,
+# on my SunOS 4.1.3 system, sysconf(_SC_OPEN_MAX) returns
+# 64, but only 32 of those file pointers can be accessed 
+# directly by _iob[i].  The remainder are off in dynamically
+# allocated memory somewhere and I don't know to automatically
+# fflush() them.  -- Andy Dougherty  Wed May 26 15:25:22 EDT 1999
+util_cflags='ccflags="$ccflags -DPERL_FFLUSH_ALL_FOPEN_MAX=32"'
 
 cat << 'EOM' >&4
 
@@ -70,3 +82,14 @@ fi
 # library.
 # 
 # Thanks to William Setzer <William_Setzer@ncsu.edu> for this info.
+
+# Don't use the GNU ld, that doesn't work, you'll get a lot of
+# relocation truncated to fit: BASE13 ...
+# from many extensions, like B and Data::Dumper.
+ld=/usr/bin/ld
+
+# As of Perl 5.8.1 it seems that dynaloading is broken in SunOS 4.x, sniff.
+case "$usedl" in
+'') usedl=undef ;;
+esac
+