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=6d94bdbd1fc9513e28042093f82f54317460aa28;hpb=a71cd7cdf387023b3454db0a31c91c286865db8f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/hints/sunos_4_1.sh b/hints/sunos_4_1.sh
index 6d94bdb..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 
@@ -30,7 +30,15 @@ d_tzname='undef'
 i_unistd='undef'
 # See util.c for another:  We need _SC_OPEN_MAX, which is in
 # <unistd.h>.
-util_cflags='ccflags="$ccflags -DI_UNISTD"'
+
+# 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
 
@@ -74,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
+