Re: Smoke [blead] v5.27.8-546-g8d8484540d FAIL(XM) os/390 25.00 (2964/)

On 03/28/2018 05:44 AM, Yaroslav Kuzmin wrote:
> Output :
>=20
> (16:42) RS12 : PDKUZM | ~/ussport/perl/perl-build
> :> ./perl -V
> Summary of my perl5 (revision 5 version 27 subversion 11) configuration=
:
>    Snapshot of: 3a7f897ad3c330a4e99ba46255bb72e89c43cd08
>    Platform:
>      osname=3Dos390
>      osvers=3D25.00
>      archname=3Dos390
>      uname=3D'os390 rs12 25.00 04 2964 '
>      config_args=3D'-Dusedevel -Dusedl -d -s'
>      hint=3Drecommended
>      useposix=3Dtrue
>      d_sigaction=3Ddefine
>      useithreads=3Dundef
>      usemultiplicity=3Dundef
>      use64bitint=3Dundef
>      use64bitall=3Dundef
>      uselongdouble=3Dundef
>      usemymalloc=3Dn
>      default_inc_excludes_dot=3Ddefine
>      bincompat5005=3Dundef
>    Compiler:
>      cc=3D'c99'
>      ccflags =3D'-qlanglvl=3Dextended:extc89:extc99 -qlongname -qxplink=
 -qdll -qfloat=3Dieee -qhaltonmsg=3D3296:4108 -DMAXSIG=3D39 -DOEMVS -D_OE=
_SOCKETS -D_XOPEN_SOURCE_EXTENDED -D_ALL_SOURCE -DYYDYNAMIC
> -D_POSIX_SOURCE=3D1 -D_SHR_ENVIRON -DPERL_EXTERNAL_GLOB -qexportall -qd=
ll -qxplink'
>      optimize=3D' '
>      cppflags=3D'-DMAXSIG=3D39 -DOEMVS -D_OE_SOCKETS -D_XOPEN_SOURCE_EX=
TENDED -D_ALL_SOURCE -DYYDYNAMIC -D_POSIX_SOURCE=3D1 -D_SHR_ENVIRON -DPER=
L_EXTERNAL_GLOB'
>      ccversion=3D''
>      gccversion=3D''
>      gccosandvers=3D''
>      intsize=3D4
>      longsize=3D4
>      ptrsize=3D4
>      doublesize=3D8
>      byteorder=3D4321
>      doublekind=3D4
>      d_longlong=3Ddefine
>      longlongsize=3D8
>      d_longdbl=3Ddefine
>      longdblsize=3D16
>      longdblkind=3D2
>      ivtype=3D'long'
>      ivsize=3D4
>      nvtype=3D'double'
>      nvsize=3D8
>      Off_t=3D'off_t'
>      lseeksize=3D4
>      alignbytes=3D8
>      prototype=3Ddefine
>    Linker and Libraries:
>      ld=3D'c99'
>      ldflags =3D'-qxplink -qdll'
>      libpth=3D/lib /usr/lib
>      libs=3D-lm -lc
>      perllibs=3D-lm -lc
>      libc=3D
>      so=3Dso
>      useshrplib=3Dtrue
>      libperl=3Dlibperl.so
>      gnulibc_version=3D''
>    Dynamic Linking:
>      dlsrc=3Ddl_dllload.xs
>      dlext=3Dso
>      d_dlsymun=3Dundef
>      ccdlflags=3D'-qxplink -qdll /u/pdkuzm/ussport/perl/perl-build/libp=
erl.x'
>      cccdlflags=3D'-c -qexportall -qxplink -qdll'
>      lddlflags=3D'-qxplink -qdll /u/pdkuzm/ussport/perl/perl-build/libp=
erl.x'
>=20
>=20
> Characteristics of this binary (from libperl):
>    Compile-time options:
>      HAS_TIMES
>      PERL_COPY_ON_WRITE
>      PERL_DONT_CREATE_GVSV
>      PERL_EXTERNAL_GLOB
>      PERL_MALLOC_WRAP
>      PERL_OP_PARENT
>      PERL_PRESERVE_IVUV
>      PERL_USE_DEVEL
>      PERLIO_LAYERS
>      USE_LARGE_FILES
>      USE_LOCALE
>      USE_LOCALE_COLLATE
>      USE_LOCALE_CTYPE
>      USE_LOCALE_NUMERIC
>      USE_LOCALE_TIME
>      USE_PERL_ATOF
>      USE_PERLIO
>    Locally applied patches:
>      SMOKE3a7f897ad3c330a4e99ba46255bb72e89c43cd08
>    Built under os390
>    Compiled at Mar 28 2018 12:12:09
>    %ENV:
>      PERL5LIB=3D"/u/pdkuzm/ussport/perl/perl-build/lib"
>    @INC:
>      /u/pdkuzm/ussport/perl/perl-build/lib
>      /usr/local/lib/perl5/site_perl/5.27.11/os390
>      /usr/local/lib/perl5/site_perl/5.27.11
>      /usr/local/lib/perl5/5.27.11/os390
>      /usr/local/lib/perl5/5.27.11
> (16:43) RS12 : PDKUZM | ~/ussport/perl/perl-build
> :>  ./perl -le 'my $a =3D "\x{587}"; my $b =3D uc($a); use bytes; print=
 map { ^Jsprintf " %x", ord } split "", $a; print map { sprintf " %x", or=
d } ^Jsplit "", $b'
>   b8 53 48
>   b8 53 48

The first sequence is the correct UTF-EBCDIC for \x{587}, but it has an=20
uppercase value that is different.

I think the first thing is for you to package up the directory=20
lib/unicore and send a copy to me.

If you have the machine available, you might want to try testing
https://perl5.git.perl.org/perl.git/shortlog/refs/heads/smoke-me/khw-core

which has a somewhat different casing implementation


> =D0=92 =D0=92=D1=81., 25/03/2018 =D0=B2 16:05 -0600, Karl Williamson =D0=
=BF=D0=B8=D1=88=D0=B5=D1=82:
>> On 03/21/2018 07:09 AM, Yaroslav Kuzmin wrote:
>>>
>>> Smoke log at available https://na01.safelinks.protection.outlook.com/=
?url=3Dhttps%3A%2F%2Fdrive.google.com%2Ffile%2Fd%2F1XHUAwq74zUMfS3Ps3WnMA=
vpSagcXFWxJ&data=3D02%7C01%7Cykuzmin%40rocketsoftware.com%
>>> 7C797e757095254fbcdbc408d5929c90fa%7C79544c1eed224879a082b67a9a672aae=
%7C0%7C1%7C636576123523851610&sdata=3Dn0upDMJ9%2B5AW5XqESiqK2lWUP3FXk%2Bc=
sVa0exwoztSE%3D&reserved=3D0
>>>
>>>
>>> Automated smoke report for branch blead 5.27.10 patch 8d8484540d380c0=
9fb40616135be00825189f578 v5.27.8-546-g8d8484540d
>>> RS12: 2964 (2964/)
>>>       on        os/390 - 25.00
>>>       using     c99 version
>>>       smoketime 2 hours 53 minutes (average 1 hour 26 minutes)
>>>
>>> Summary: FAIL(XM)
>>>
>> The many failures in this report indicates that something fundamental
>> got broken.  So to start finding it, I think we need to go back to the
>> basics.
>>
>> Try this one-liner, and send me the results:
>>
>>    ./perl -le 'my $a =3D "\x{587}"; my $b =3D uc($a); use bytes; print=
 map {
>> sprintf " %x", ord } split "", $a; print map { sprintf " %x", ord }
>> split "", $b'
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D
> Rocket Software, Inc. and subsidiaries =E2=96=A0 77 Fourth Avenue, Walt=
ham MA 02451 =E2=96=A0 Main Office Toll Free Number: +1 855.577.4323
> Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity=
/RCEmailSupport
> Unsubscribe from Marketing Messages/Manage Your Subscription Preference=
s - http://www.rocketsoftware.com/manage-your-email-preferences
> Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-po=
licy
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D
>=20
> This communication and any attachments may contain confidential informa=
tion of Rocket Software, Inc. All unauthorized use, disclosure or distrib=
ution is prohibited. If you are not the intended recipient, please notify=
 Rocket Software immediately and destroy all copies of this communication=
. Thank you.
>=20