In metaconfig.git, the branch master has been updated <http://perl5.git.perl.org/metaconfig.git/commitdiff/ce4587eeaa1c7853450796870dbcf81163f8a4fa?hp=49a24870d542425d9f715f5fa1f42a8183485c8e>
- Log ----------------------------------------------------------------- commit ce4587eeaa1c7853450796870dbcf81163f8a4fa Author: H.Merijn Brand - Tux <[email protected]> Date: Fri Nov 11 16:52:40 2016 +0100 Missing from previous backport M U/perl/longdblfio.U commit f758b3381f088722dfd9253f735b1fd2bbd3bc55 Author: H.Merijn Brand - Tux <[email protected]> Date: Fri Nov 11 16:52:15 2016 +0100 Exclude DOT from @INC - as agreed on for now M U/perl/defaultincdot.U ----------------------------------------------------------------------- Summary of changes: U/perl/defaultincdot.U | 17 +++++++++++------ U/perl/longdblfio.U | 40 ++++++++++++++++++++++++++++++++++++++++ 2 files changed, 51 insertions(+), 6 deletions(-) diff --git a/U/perl/defaultincdot.U b/U/perl/defaultincdot.U index 6f5a971..fff93d2 100644 --- a/U/perl/defaultincdot.U +++ b/U/perl/defaultincdot.U @@ -16,7 +16,6 @@ ?C:. ?H:#$default_inc_excludes_dot DEFAULT_INC_EXCLUDES_DOT /**/ ?H:. -?D:default_inc_excludes_dot='' : Include . in @INC $cat <<EOM @@ -27,15 +26,21 @@ a shared directory. This can lead to executing unexpected code. EOM +# When changing to exclude by default: +#case "$default_inc_excludes_dot" in +# $undef|false|[nN]*) dflt="n" ;; +# *) dflt="y" ;; +#esac +# For now: case "$default_inc_excludes_dot" in - $define|true|[yY]*) dflt="n" ;; - *) dflt='y' ;; + $define|true|[yY]*) dflt="y" ;; + *) dflt="n" ;; esac -rp='Provide '.' in @INC by default? ' +rp='Exclude '.' from @INC by default? ' . ./myread case "$ans" in - [nN]*|define) default_inc_excludes_dot="$define" ;; - *) default_inc_excludes_dot="$undef" ;; + [nN]|undef) default_inc_excludes_dot="$undef" ;; + *) default_inc_excludes_dot="$define" ;; esac diff --git a/U/perl/longdblfio.U b/U/perl/longdblfio.U index bea14b9..75ce231 100644 --- a/U/perl/longdblfio.U +++ b/U/perl/longdblfio.U @@ -178,6 +178,38 @@ ?C: DOUBLE_IS_CRAY_SINGLE_64_BIT ?C: DOUBLE_IS_UNKNOWN_FORMAT ?C:. +?C:DOUBLE_HAS_INF: +?C: This symbol, if defined, indicates that the double has +?C: the infinity. +?C:. +?C:DOUBLE_HAS_NAN: +?C: This symbol, if defined, indicates that the double has +?C: the not-a-number. +?C:. +?C:DOUBLE_HAS_NEGATIVE_ZERO: +?C: This symbol, if defined, indicates that the double has +?C: the negative_zero. +?C:. +?C:DOUBLE_HAS_SUBNORMALS: +?C: This symbol, if defined, indicates that the double has +?C: the subnormals (denormals). +?C:. +?C:DOUBLE_STYLE_CRAY: +?C: This symbol, if defined, indicates that the double is +?C: the 64-bit CRAY mainframe format. +?C:. +?C:DOUBLE_STYLE_IBM: +?C: This symbol, if defined, indicates that the double is +?C: the 64-bit IBM mainframe format. +?C:. +?C:DOUBLE_STYLE_IEEE: +?C: This symbol, if defined, indicates that the double is +?C: the 64-bit IEEE 754. +?C:. +?C:DOUBLE_STYLE_VAX: +?C: This symbol, if defined, indicates that the double is +?C: the 64-bit VAX format D or G. +?C:. ?LINT:known DOUBLE_IS_IEEE_754_32_BIT_LITTLE_ENDIAN ?LINT:known DOUBLE_IS_IEEE_754_32_BIT_BIG_ENDIAN ?LINT:known DOUBLE_IS_IEEE_754_64_BIT_LITTLE_ENDIAN @@ -216,6 +248,14 @@ ?H:#$d_PRIGUldbl PERL_PRIGldbl $sPRIGUldbl /**/ ?H:#$d_PRIEUldbl PERL_PRIEldbl $sPRIEUldbl /**/ ?H:#$d_SCNfldbl PERL_SCNfldbl $sSCNfldbl /**/ +?H:#$d_double_has_inf DOUBLE_HAS_INF +?H:#$d_double_has_nan DOUBLE_HAS_NAN +?H:#$d_double_has_negative_zero DOUBLE_HAS_NEGATIVE_ZERO +?H:#$d_double_has_subnormals DOUBLE_HAS_SUBNORMALS +?H:#$d_double_style_cray DOUBLE_STYLE_CRAY +?H:#$d_double_style_ibm DOUBLE_STYLE_IBM +?H:#$d_double_style_ieee DOUBLE_STYLE_IEEE +?H:#$d_double_style_vax DOUBLE_STYLE_VAX ?H:. ?T:yyy message saveccflags ?F:!try -- perl5 metaconfig repository
