[metaconfig.git] branch master, updated. a7081d4f39d4a0f97ee631373886852e40b79d33
In metaconfig.git, the branch master has been updated
http://perl5.git.perl.org/metaconfig.git/commitdiff/a7081d4f39d4a0f97ee631373886852e40b79d33?hp=f9507e6f76116dc09c6b2eb2629ce9302cf744cb
- Log -
commit a7081d4f39d4a0f97ee631373886852e40b79d33
Author: H.Merijn Brand - Tux h.m.br...@xs4all.nl
Date: Mon Jul 6 09:22:23 2015 +0200
infnan: Configure scan for fp mantissa bytes
backport of ed3917fd69b234bb5614cb9aed93d62238e3dcb8
A U/perl/mantbits.U
commit 43240547326914b4b09dac717d212aaee729c88b
Author: H.Merijn Brand - Tux h.m.br...@xs4all.nl
Date: Mon Jul 6 09:08:55 2015 +0200
infnan: Configure scan for infnan bytes
backport 44521f3a1782026b7d25cc55af459c3e28cc9bdd with fixes
A U/perl/infnan.U
---
Summary of changes:
U/perl/infnan.U | 213 ++
U/perl/mantbits.U | 119 ++
2 files changed, 332 insertions(+)
create mode 100644 U/perl/infnan.U
create mode 100644 U/perl/mantbits.U
diff --git a/U/perl/infnan.U b/U/perl/infnan.U
new file mode 100644
index 000..0725c0a
--- /dev/null
+++ b/U/perl/infnan.U
@@ -0,0 +1,213 @@
+?RCS: $Id$
+?RCS:
+?RCS: Copyright (c) 2015 Jarkko Hietaniemi, H.Merijn Brand
+?RCS:
+?RCS: You may distribute under the terms of either the GNU General Public
+?RCS: License or the Artistic License, as specified in the README file.
+?RCS:
+?MAKE:longdblinfbytes longdblnanbytes doubleinfbytes doublenanbytes: Inlibc \
+ cat i_math Compile run rm_try Setvar echo d_longdbl \
+ doublekind doublesize longdblkind longdblsize
+?MAKE: -pick add $@ %
+?S:longdblinfbytes:
+?S:This variable contains comma-separated list of hexadecimal bytes
+?S:for the double precision infinity.
+?S:.
+?S:longdblnanbytes:
+?S:This variable contains comma-separated list of hexadecimal bytes
+?S:for the double precision not-a-number.
+?S:.
+?S:doubleinfbytes:
+?S:This variable contains comma-separated list of hexadecimal bytes
+?S:for the long double precision infinity.
+?S:.
+?S:doublenanbytes:
+?S:This variable contains comma-separated list of hexadecimal bytes
+?S:for the long double precision not-a-number.
+?S:.
+?C:DOUBLEINFBYTES:
+?C:This symbol, if defined, is a comma-separated list of
+?C:hexadecimal bytes for the double precision infinity.
+?C:.
+?C:DOUBLENANBYTES:
+?C:This symbol, if defined, is a comma-separated list of
+?C:hexadecimal bytes (0xHH) for the double precision not-a-number.
+?C:.
+?C:LONGDBLINFBYTES:
+?C:This symbol, if defined, is a comma-separated list of
+?C:hexadecimal bytes for the long double precision infinity.
+?C:.
+?C:LONGDBLNANBYTES:
+?C:This symbol, if defined, is a comma-separated list of
+?C:hexadecimal bytes (0xHH) for the long double precision not-a-number.
+?C:.
+?H:#define DOUBLEINFBYTES $doubleinfbytes /**/
+?H:#define DOUBLENANBYTES $doublenanbytes /**/
+?H:#define LONGDBLINFBYTES $longdblinfbytes/**/
+?H:#define LONGDBLNANBYTES $longdblnanbytes/**/
+?H:.
+?F:!try
+: Check what kind of inf/nan your system has
+$echo Checking the kind of infinities and nans you have... 4
+$cat try.c EOP
+#define DOUBLESIZE $doublesize
+#$d_longdbl HAS_LONG_DOUBLE
+#ifdef HAS_LONG_DOUBLE
+#define LONGDBLSIZE $longdblsize
+#define LONGDBLKIND $longdblkind
+#endif
+#$i_math I_MATH
+#ifdef I_MATH
+#include math.h
+#endif
+#include stdio.h
+/* Note that whether the sign bit is on or off
+ * for NaN depends on the CPU/FPU, and possibly
+ * can be affected by the build toolchain.
+ *
+ * For example for older MIPS and HP-PA 2.0 the quiet NaN is:
+ * 0x7f, 0xf7, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff
+ * 0x7f, 0xf4, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
+ * (respectively) as opposed to the more usual
+ * 0x7f, 0xf8, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
+ */
+static void bytes(unsigned char *p, unsigned int n) {
+ int i;
+ for (i = 0; i n; i++) {
+printf(0x%02x%s, p[i], i n - 1 ? , : \n);
+ }
+}
+int main(int argc, char *argv[]) {
+ /* We cannot use 1.0/0.0 and 0.0/0.0 (with L suffixes for long double)
+* because some compilers are 'smart' and not only warn but refuse to
+* compile such 'illegal' values. */
+ double dinf = exp(1e9);
+ double dnan = sqrt(-1.0);
+#ifdef HAS_LONG_DOUBLE
+ long double ldinf = (long double)exp(1e9);
+ long double ldnan = (long double)sqrt(-1.0);
+#endif
+ if (argc == 2) {
+switch (argv[1][0]) {
+case '1': bytes(dinf, sizeof(dinf)); break;
+case '2': bytes(dnan, sizeof(dnan)); break;
+#ifdef HAS_LONG_DOUBLE
+# if LONG_DOUBLEKIND == 3 || LONG_DOUBLEKIND == 4
+/* the 80-bit long doubles might have garbage in their excess bytes */
+memset((char *)ldinf + 10, '\0', LONG_DOUBLESIZE - 10);
+# endif
+case '3': bytes(ldinf, sizeof(ldinf)); break;
+case
[metaconfig.git] branch master, updated. 2e1f99052606c190616f90fa1702bb3cab1e83ea
In metaconfig.git, the branch master has been updated http://perl5.git.perl.org/metaconfig.git/commitdiff/2e1f99052606c190616f90fa1702bb3cab1e83ea?hp=9e3861fafc3421e2fffb3a491f0bb950caa73a78 - Log - commit 2e1f99052606c190616f90fa1702bb3cab1e83ea Author: H.Merijn Brand - Tux h.m.br...@xs4all.nl Date: Mon Jul 6 09:38:40 2015 +0200 Two nits not show by mlint --- Summary of changes: U/perl/infnan.U | 2 +- U/perl/mantbits.U | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/U/perl/infnan.U b/U/perl/infnan.U index 0725c0a..07d37a7 100644 --- a/U/perl/infnan.U +++ b/U/perl/infnan.U @@ -8,7 +8,7 @@ ?MAKE:longdblinfbytes longdblnanbytes doubleinfbytes doublenanbytes: Inlibc \ cat i_math Compile run rm_try Setvar echo d_longdbl \ doublekind doublesize longdblkind longdblsize -?MAKE: -pick add $@ % +?MAKE: -pick add $@ % ?S:longdblinfbytes: ?S:This variable contains comma-separated list of hexadecimal bytes ?S:for the double precision infinity. diff --git a/U/perl/mantbits.U b/U/perl/mantbits.U index af18558..e937e05 100644 --- a/U/perl/mantbits.U +++ b/U/perl/mantbits.U @@ -8,7 +8,7 @@ ?MAKE:longdblmantbits doublemantbits nvmantbits: Inlibc cat Compile run \ rm_try Setvar echo i_float i_sunmath usequadmath \ d_longdbl longdblkind nvsize doublesize longdblsize -?MAKE: -pick add $@ % +?MAKE: -pick add $@ % ?S:doublemantbits: ?S:This symbol, if defined, tells how many mantissa bits ?S:there are in double precision floating point format. -- perl5 metaconfig repository
[metaconfig.git] branch master, updated. 9e3861fafc3421e2fffb3a491f0bb950caa73a78
In metaconfig.git, the branch master has been updated http://perl5.git.perl.org/metaconfig.git/commitdiff/9e3861fafc3421e2fffb3a491f0bb950caa73a78?hp=a7081d4f39d4a0f97ee631373886852e40b79d33 - Log - commit 9e3861fafc3421e2fffb3a491f0bb950caa73a78 Author: H.Merijn Brand - Tux h.m.br...@xs4all.nl Date: Mon Jul 6 09:28:27 2015 +0200 infnan: move the mantbits definitions from perl.h to Configure Backport of 5a14060af165c24c63cfc5d5f4d2aeb52cc41a03 --- Summary of changes: U/perl/mantbits.U | 31 +-- 1 file changed, 29 insertions(+), 2 deletions(-) diff --git a/U/perl/mantbits.U b/U/perl/mantbits.U index b30a255..af18558 100644 --- a/U/perl/mantbits.U +++ b/U/perl/mantbits.U @@ -5,8 +5,9 @@ ?RCS: You may distribute under the terms of either the GNU General Public ?RCS: License or the Artistic License, as specified in the README file. ?RCS: -?MAKE:longdblmantbits doublemantbits: Inlibc cat Compile run rm_try Setvar \ - echo i_float i_sunmath d_longdbl longdblkind +?MAKE:longdblmantbits doublemantbits nvmantbits: Inlibc cat Compile run \ + rm_try Setvar echo i_float i_sunmath usequadmath \ + d_longdbl longdblkind nvsize doublesize longdblsize ?MAKE: -pick add $@ % ?S:doublemantbits: ?S:This symbol, if defined, tells how many mantissa bits @@ -23,6 +24,10 @@ ?S:The common x86-style 80-bit long double does not have ?S:an implicit bit. ?S:. +?S:nvmantbits: +?S:This variable tells how many bits the mantissa of a Perl NV has, +?S:not including the possible implicit bit. +?S:. ?C:DOUBLEMANTBITS: ?C:This symbol, if defined, tells how many mantissa bits ?C:there are in double precision floating point format. @@ -38,8 +43,14 @@ ?C:The common x86-style 80-bit long double does not have ?C:an implicit bit. ?C:. +?C:NVMANTBITS: +?C:This symbol, if defined, tells how many mantissa bits +?C:(not including implicit bit) there are in a Perl NV. +?C:This depends on which floating point type was chosen. +?C:. ?H:#define DOUBLEMANTBITS $doublemantbits ?H:#define LONGDBLMANTBITS $longdblmantbits +?H:#define NVMANTBITS $nvmantbits ?H:. ?F:!try : Check the length of the double mantissa @@ -117,3 +128,19 @@ else fi $rm_try +: Check the length of the NV mantissa +$echo Checking how many mantissa bits your NVs have... 4 +if test X$usequadmath = X$define; then + nvmantbits=112 # 128-1-15 +else + if test X$nvsize = X$doublesize; then +nvmantbits=$doublemantbits + else + if test X$nvsize = X$longdblsize; then + nvmantbits=$longdblmantbits + else + nvmantbits=$undef + fi + fi +fi + -- perl5 metaconfig repository
[metaconfig.git] branch master, updated. 13b76c50ac0069b644dfb773d81aec3767553dcc
In metaconfig.git, the branch master has been updated http://perl5.git.perl.org/metaconfig.git/commitdiff/13b76c50ac0069b644dfb773d81aec3767553dcc?hp=2e1f99052606c190616f90fa1702bb3cab1e83ea - Log - commit 13b76c50ac0069b644dfb773d81aec3767553dcc Author: H.Merijn Brand - Tux h.m.br...@xs4all.nl Date: Mon Jul 6 15:55:17 2015 +0200 description swap --- Summary of changes: U/perl/infnan.U | 8 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/U/perl/infnan.U b/U/perl/infnan.U index 07d37a7..e253b45 100644 --- a/U/perl/infnan.U +++ b/U/perl/infnan.U @@ -11,19 +11,19 @@ ?MAKE: -pick add $@ % ?S:longdblinfbytes: ?S:This variable contains comma-separated list of hexadecimal bytes -?S:for the double precision infinity. +?S:for the long double precision infinity. ?S:. ?S:longdblnanbytes: ?S:This variable contains comma-separated list of hexadecimal bytes -?S:for the double precision not-a-number. +?S:for the long double precision not-a-number. ?S:. ?S:doubleinfbytes: ?S:This variable contains comma-separated list of hexadecimal bytes -?S:for the long double precision infinity. +?S:for the double precision infinity. ?S:. ?S:doublenanbytes: ?S:This variable contains comma-separated list of hexadecimal bytes -?S:for the long double precision not-a-number. +?S:for the double precision not-a-number. ?S:. ?C:DOUBLEINFBYTES: ?C:This symbol, if defined, is a comma-separated list of -- perl5 metaconfig repository
[perl.git] branch blead, updated. v5.23.0-86-ge6704a4
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/e6704a40e007cf599527cad0675d63c2ca3e423d?hp=18b018810c7af47c9386ad13270ee42dd82df16a
- Log -
commit e6704a40e007cf599527cad0675d63c2ca3e423d
Author: H.Merijn Brand h.m.br...@xs4all.nl
Date: Mon Jul 6 16:02:15 2015 +0200
Regenerate Configure after backports and small fixes
---
Summary of changes:
Configure | 626 ++--
config_h.SH | 62 +++---
uconfig.h | 64 +++
3 files changed, 376 insertions(+), 376 deletions(-)
diff --git a/Configure b/Configure
index 4a6b098..f16a4bf 100755
--- a/Configure
+++ b/Configure
@@ -631,10 +631,7 @@ d_log2=''
d_logb=''
d_ldexpl=''
d_longdbl=''
-longdblinfbytes=''
longdblkind=''
-longdblmantbits=''
-longdblnanbytes=''
longdblsize=''
d_longlong=''
longlongsize=''
@@ -1065,6 +1062,10 @@ i_vfork=''
d_inc_version_list=''
inc_version_list=''
inc_version_list_init=''
+doubleinfbytes=''
+doublenanbytes=''
+longdblinfbytes=''
+longdblnanbytes=''
installprefix=''
installprefixexp=''
installstyle=''
@@ -1099,9 +1100,6 @@ d_PRIfldbl=''
d_PRIgldbl=''
d_SCNfldbl=''
doublekind=''
-doubleinfbytes=''
-doublemantbits=''
-doublenanbytes=''
sPRIEUldbl=''
sPRIFUldbl=''
sPRIGUldbl=''
@@ -1127,6 +1125,9 @@ installman3dir=''
man3dir=''
man3direxp=''
man3ext=''
+doublemantbits=''
+longdblmantbits=''
+nvmantbits=''
modetype=''
multiarch=''
mydomain=''
@@ -1180,7 +1181,6 @@ ivsize=''
ivtype=''
nv_overflows_integers_at=''
nv_preserves_uv_bits=''
-nvmantbits=''
nvsize=''
nvtype=''
u16size=''
@@ -1862,6 +1862,11 @@ esac
: run the defines and the undefines, if any, but leave the file out there...
touch optdef.sh
+grep -q '\\' optdef.sh
+if test $? = 0; then
+echo Configure does not support \\ in -D arguments
+exit 1
+fi
. ./optdef.sh
: create the posthint manipulation script and leave the file out there...
touch posthint.sh
@@ -10121,174 +10126,6 @@ case $doublekind in
esac
$rm_try
-: see if this is a math.h system
-set math.h i_math
-eval $inhdr
-
-: Check what kind of inf/nan your system has
-$echo Checking the kind of infinities and nans you have... 4
-$cat try.c EOP
-#define DOUBLESIZE $doublesize
-#$d_longdbl HAS_LONG_DOUBLE
-#ifdef HAS_LONG_DOUBLE
-#define LONGDBLSIZE $longdblsize
-#define LONGDBLKIND $longdblkind
-#endif
-#$i_math I_MATH
-#ifdef I_MATH
-#include math.h
-#endif
-#include stdio.h
-/* Note that whether the sign bit is on or off
- * for NaN depends on the CPU/FPU, and possibly
- * can be affected by the build toolchain.
- *
- * For example for older MIPS and HP-PA 2.0 the quiet NaN is:
- * 0x7f, 0xf7, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff
- * 0x7f, 0xf4, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
- * (respectively) as opposed to the more usual
- * 0x7f, 0xf8, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
- */
-static void bytes(unsigned char *p, unsigned int n) {
- int i;
- for (i = 0; i n; i++) {
-printf(0x%02x%s, p[i], i n - 1 ? , : \n);
- }
-}
-int main(int argc, char *argv[]) {
- /* We cannot use 1.0/0.0 and 0.0/0.0 (with L suffixes for long double)
-* because some compilers are 'smart' and not only warn but refuse to
-* compile such 'illegal' values. */
- double dinf = exp(1e9);
- double dnan = sqrt(-1.0);
-#ifdef HAS_LONG_DOUBLE
- long double ldinf = (long double)exp(1e9);
- long double ldnan = (long double)sqrt(-1.0);
-#endif
- if (argc == 2) {
-switch (argv[1][0]) {
-case '1': bytes(dinf, sizeof(dinf)); break;
-case '2': bytes(dnan, sizeof(dnan)); break;
-#ifdef HAS_LONG_DOUBLE
-# if LONG_DOUBLEKIND == 3 || LONG_DOUBLEKIND == 4
-/* the 80-bit long doubles might have garbage in their excess bytes */
-memset((char *)ldinf + 10, '\0', LONG_DOUBLESIZE - 10);
-# endif
-case '3': bytes(ldinf, sizeof(ldinf)); break;
-case '4': bytes(ldnan, sizeof(ldnan)); break;
-#endif
-}
- }
- return 0;
-}
-EOP
-set try
-if eval $compile; then
-doubleinfbytes=`$run ./try 1`
-doublenanbytes=`$run ./try 2`
-case $d_longdbl in
-$define)
- longdblinfbytes=`$run ./try 3`
- longdblnanbytes=`$run ./try 4`
- ;;
-esac
-else
-# Defaults in case the above test program failed.
-case $doublekind in
-1) # IEEE 754 32-bit LE
- doubleinfbytes='0x00, 0x00, 0xf0, 0x7f'
- doublenanbytes='0x00, 0x00, 0xf8, 0x7f'
- ;;
-2) # IEEE 754 32-bit BE
- doubleinfbytes='0x7f, 0xf0, 0x00, 0x00'
- doublenanbytes='0x7f, 0xf8, 0x00, 0x00'
- ;;
-3) # IEEE 754 64-bit LE
- doubleinfbytes='0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x7f'
- doublenanbytes='0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x7f'
- ;;
-4) # IEEE 754 64-bit BE
- doubleinfbytes='0x7f, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00'
- doublenanbytes='0x7f, 0xf8, 0x00,
[perl.git] branch blead, updated. v5.23.0-83-g8b7906d
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/8b7906d1719d3641e1ea0c94d934ecce176275cb?hp=deaaea8c017369305bf7859858531c736ca7ed4b
- Log -
commit 8b7906d1719d3641e1ea0c94d934ecce176275cb
Author: Rafael Garcia-Suarez r...@consttype.org
Date: Mon Jul 6 08:09:04 2015 +0200
Some nits in perlsub
- DOES was not listed in the list of methods with reserved names
- Remove one useless instance of empty list assignment
- Punctuation
---
Summary of changes:
pod/perlsub.pod | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/pod/perlsub.pod b/pod/perlsub.pod
index f057b96..48f178f 100644
--- a/pod/perlsub.pod
+++ b/pod/perlsub.pod
@@ -258,11 +258,11 @@ CAUTOLOAD
=item documented in Lperlmod
-CCLONE, CCLONE_SKIP,
+CCLONE, CCLONE_SKIP
=item documented in Lperlobj
-CDESTROY
+CDESTROY, CDOES
=item documented in Lperltie
@@ -1289,7 +1289,7 @@ of all their former last elements:
sub popmany {
my $aref;
- my @retlist = ();
+ my @retlist;
foreach $aref ( @_ ) {
push @retlist, pop @$aref;
}
--
Perl5 Master Repository
[metaconfig.git] branch master, updated. f9507e6f76116dc09c6b2eb2629ce9302cf744cb
In metaconfig.git, the branch master has been updated http://perl5.git.perl.org/metaconfig.git/commitdiff/f9507e6f76116dc09c6b2eb2629ce9302cf744cb?hp=236145260289a2806c56fa4822162aac97798506 - Log - commit f9507e6f76116dc09c6b2eb2629ce9302cf744cb Author: H.Merijn Brand - Tux h.m.br...@xs4all.nl Date: Mon Jul 6 08:30:56 2015 +0200 Create try.c afresh for pointersize test --- Summary of changes: U/compline/ptrsize.U | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/U/compline/ptrsize.U b/U/compline/ptrsize.U index 33714fe..467e5bc 100644 --- a/U/compline/ptrsize.U +++ b/U/compline/ptrsize.U @@ -36,7 +36,7 @@ echo case $ptrsize in '') echo Checking to see how big your pointers are... 4 - $cat try.c EOCP + $cat try.c EOCP #include stdio.h #$i_stdlib I_STDLIB #ifdef I_STDLIB -- perl5 metaconfig repository
[perl.git] branch blead, updated. v5.23.0-84-gd1f2894
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/d1f289484c9ecefaceab600fdfc79f7804756ff0?hp=8b7906d1719d3641e1ea0c94d934ecce176275cb - Log - commit d1f289484c9ecefaceab600fdfc79f7804756ff0 Author: H.Merijn Brand h.m.br...@xs4all.nl Date: Mon Jul 6 08:31:24 2015 +0200 Create try.c afresh for pointersize test --- Summary of changes: Configure | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Configure b/Configure index ef22432..b85ca44 100755 --- a/Configure +++ b/Configure @@ -7638,7 +7638,7 @@ echo case $ptrsize in '') echo Checking to see how big your pointers are... 4 - $cat try.c EOCP + $cat try.c EOCP #include stdio.h #$i_stdlib I_STDLIB #ifdef I_STDLIB -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.23.0-85-g18b0188
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/18b018810c7af47c9386ad13270ee42dd82df16a?hp=d1f289484c9ecefaceab600fdfc79f7804756ff0 - Log - commit 18b018810c7af47c9386ad13270ee42dd82df16a Author: H.Merijn Brand h.m.br...@xs4all.nl Date: Mon Jul 6 09:06:10 2015 +0200 fix variable name in case of unknown NAN --- Summary of changes: Configure | 14 +++--- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Configure b/Configure index b85ca44..4a6b098 100755 --- a/Configure +++ b/Configure @@ -10251,9 +10251,9 @@ else longdblinfbytes='0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0x7f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00' longdblnanbytes='0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0xff, 0x7f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00' ;; - *) # No idea. - longdblinfbytes=$undef - longdlnan=$undef + *) # No idea. + longdblinfbytes=$undef + longdblnanbytes=$undef ;; esac ;; @@ -10267,9 +10267,9 @@ else longdblinfbytes='0x7f, 0xff, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00' longdblnanbytes='0x7f, 0xff, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00' ;; - *) # No idea. - longdblinfbytes=$undef - longdlnan=$undef + *) # No idea. + longdblinfbytes=$undef + longdblnanbytes=$undef ;; esac ;; @@ -10283,7 +10283,7 @@ else ;; *) # No idea. longdblinfbytes=$undef - longdlnan=$undef + longdblnanbytes=$undef ;; esac fi -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.23.0-87-gba707cd
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/ba707cdc782d882662421af06658ff4afdf31003?hp=e6704a40e007cf599527cad0675d63c2ca3e423d - Log - commit ba707cdc782d882662421af06658ff4afdf31003 Author: Karl Williamson k...@cpan.org Date: Wed May 13 17:57:06 2015 -0600 Change wording of warning due to Unicode Standard change Non-characters are no longer forbidden as of Unicode 7.0; they are just not recommended. The wording of the warning changes accordingly. --- Summary of changes: ext/XS-APItest/t/utf8.t | 2 +- pod/perldiag.pod| 2 +- t/lib/warnings/utf8 | 80 - utf8.c | 6 ++-- 4 files changed, 45 insertions(+), 45 deletions(-) diff --git a/ext/XS-APItest/t/utf8.t b/ext/XS-APItest/t/utf8.t index 8322cb9..798380f 100644 --- a/ext/XS-APItest/t/utf8.t +++ b/ext/XS-APItest/t/utf8.t @@ -163,7 +163,7 @@ my @tests = ( ], [ non-character code point, \xEF\xB7\x90, $UTF8_WARN_NONCHAR, $UTF8_DISALLOW_NONCHAR, 'nonchar', 0xFDD0, 3, -qr/Unicode non-character.*is illegal for open interchange/ +qr/Unicode non-character.*is not recommended for open interchange/ ], [ begins with FE, \xfe\x82\x80\x80\x80\x80\x80, diff --git a/pod/perldiag.pod b/pod/perldiag.pod index 6ac8ee8..159b9ac 100644 --- a/pod/perldiag.pod +++ b/pod/perldiag.pod @@ -6121,7 +6121,7 @@ There should be an operator before the C(, as there's no indication as to how the digits are to be combined with the characters in the Lao and Thai scripts. -=item Unicode non-character U+%X is illegal for open interchange +=item Unicode non-character U+%X is not recommended for open interchange (S nonchar) Certain codepoints, such as U+FFFE and U+, are defined by the Unicode standard to be non-characters. Those diff --git a/t/lib/warnings/utf8 b/t/lib/warnings/utf8 index 2dfb4cb..955ac55 100644 --- a/t/lib/warnings/utf8 +++ b/t/lib/warnings/utf8 @@ -408,42 +408,42 @@ close $fh; EXPECT Unicode surrogate U+D800 is illegal in UTF-8 at - line 6. Unicode surrogate U+DFFF is illegal in UTF-8 at - line 7. -Unicode non-character U+FDD0 is illegal for open interchange at - line 10. -Unicode non-character U+FDEF is illegal for open interchange at - line 11. -Unicode non-character U+FFFE is illegal for open interchange at - line 15. -Unicode non-character U+ is illegal for open interchange at - line 16. -Unicode non-character U+1FFFE is illegal for open interchange at - line 18. -Unicode non-character U+1 is illegal for open interchange at - line 19. -Unicode non-character U+2FFFE is illegal for open interchange at - line 20. -Unicode non-character U+2 is illegal for open interchange at - line 21. -Unicode non-character U+3FFFE is illegal for open interchange at - line 22. -Unicode non-character U+3 is illegal for open interchange at - line 23. -Unicode non-character U+4FFFE is illegal for open interchange at - line 24. -Unicode non-character U+4 is illegal for open interchange at - line 25. -Unicode non-character U+5FFFE is illegal for open interchange at - line 26. -Unicode non-character U+5 is illegal for open interchange at - line 27. -Unicode non-character U+6FFFE is illegal for open interchange at - line 28. -Unicode non-character U+6 is illegal for open interchange at - line 29. -Unicode non-character U+7FFFE is illegal for open interchange at - line 30. -Unicode non-character U+7 is illegal for open interchange at - line 31. -Unicode non-character U+8FFFE is illegal for open interchange at - line 32. -Unicode non-character U+8 is illegal for open interchange at - line 33. -Unicode non-character U+9FFFE is illegal for open interchange at - line 34. -Unicode non-character U+9 is illegal for open interchange at - line 35. -Unicode non-character U+AFFFE is illegal for open interchange at - line 36. -Unicode non-character U+A is illegal for open interchange at - line 37. -Unicode non-character U+BFFFE is illegal for open interchange at - line 38. -Unicode non-character U+B is illegal for open interchange at - line 39. -Unicode non-character U+CFFFE is illegal for open interchange at - line 40. -Unicode non-character U+C is illegal for open interchange at - line 41. -Unicode non-character U+DFFFE is illegal for open interchange at - line 42. -Unicode non-character U+D is illegal for open interchange at - line 43. -Unicode non-character U+EFFFE is illegal for open interchange at - line 44. -Unicode non-character U+E is illegal for open interchange at - line 45. -Unicode non-character U+E is illegal for open interchange at - line 46. -Unicode non-character U+F is illegal for open interchange at - line 47. -Unicode non-character U+10FFFE is illegal for open interchange at -
