[perl #33185] UTF-8 string substitution corrupts memory

[perl5.git] / hints / os390.sh

diff --git a/hints/os390.sh b/hints/os390.sh
index 8766f0b..0873dfc 100644 (file)
--- a/hints/os390.sh
+++ b/hints/os390.sh
@@ -9,7 +9,7 @@
 #     Len Johnson <lenjay@ibm.net>
 #     Bud Huff  <BAHUFF@us.oracle.com>
 #     Peter Prymmer <pvhp@forte.com>
-#     Andy Dougherty  <doughera@lafcol.lafayette.edu>
+#     Andy Dougherty  <doughera@lafayette.edu>
 #     Tim Bunce  <Tim.Bunce@ig.co.uk>
 #
 #  as well as the authors of the aix.sh file
@@ -123,14 +123,23 @@ case "$ldlibpthname" in
 '') ldlibpthname=LIBPATH ;;
 esac
 
+# The folowing should always be used
+d_oldpthreads='define'
+
 # Header files to include.
-# You can override these with Configure -Ui_time -Ui_systime.
+# You can override these with Configure -Ui_time -Ui_systime -Dd_pthread_atfork.
 case "$i_time" in
 '') i_time='define' ;;
 esac
 case "$i_systime" in
 '') i_systime='define' ;;
 esac
+case "$d_pthread_atfork" in
+'') d_pthread_atfork='undef' ;;
+esac
+case "$d_pthread_atfork" in                                                  
+'') d_pthread_atfork='undef' ;;                                              
+esac                                                                         
 
 # (from aix.sh)
 # uname -m output is too specific and not appropriate here
@@ -206,10 +215,9 @@ fi
 # Most of the time gcvt() seems to work fine but
 # sometimes values like 0.1, 0.2, come out as "10", "20",
 # a trivial Perl demonstration snippet is 'print 0.1'.
-# Yes, a flagrant bug, but unfortunately not trivial to
-# reproduce in C using gcvt().
+# The -W 0,float(ieee) seems to be the switch breaking gcvt().
 # sprintf() seems to get things right(er).
-d_Gconvert='sprintf((b),"%.*g",(n),(x))'
+gconvert_preference=sprintf
 
 cat >config.arch<<'__CONFIG_ARCH__'
 # The '-W 0,float(ieee)' cannot be used during Configure as ldflags.