No output : (11:07) RS12 : PDKUZM | ~/ussport/perl/perl-build :> ./perl -I lib davem3.pm (11:07) RS12 : PDKUZM | ~/ussport/perl/perl-build :> ./perl -I lib -V Summary of my perl5 (revision 5 version 27 subversion 7) configuration: Snapshot of: 1c7e8142ce2e4dc3295717ec9fe9f344cb5ce4fb Platform: osname=os390 osvers=25.00 archname=os390 uname='os390 rs12 25.00 04 2964 ' config_args='-Dusedl -Dusedevel -d -s' hint=recommended useposix=true d_sigaction=define useithreads=undef usemultiplicity=undef use64bitint=undef use64bitall=undef uselongdouble=undef usemymalloc=n default_inc_excludes_dot=define bincompat5005=undef Compiler: cc='c99' ccflags ='-qlanglvl=extended:extc89:extc99 -qlongname -qxplink -qdll -qfloat=ieee -qhaltonmsg=3296:4108 -DMAXSIG=39 -DOEMVS -D_OE_SOCKETS -D_XOPEN_SOURCE_EXTENDED -D_ALL_SOURCE -DYYDYNAMIC -D_POSIX_SOURCE=1 -D_SHR_ENVIRON -DPERL_EXTERNAL_GLOB -qexportall -qdll -qxplink' optimize=' ' cppflags='-DMAXSIG=39 -DOEMVS -D_OE_SOCKETS -D_XOPEN_SOURCE_EXTENDED -D_ALL_SOURCE -DYYDYNAMIC -D_POSIX_SOURCE=1 -D_SHR_ENVIRON -DPERL_EXTERNAL_GLOB' ccversion='' gccversion='' gccosandvers='' intsize=4 longsize=4 ptrsize=4 doublesize=8 byteorder=4321 doublekind=4 d_longlong=define longlongsize=8 d_longdbl=define longdblsize=16 longdblkind=2 ivtype='long' ivsize=4 nvtype='double' nvsize=8 Off_t='off_t' lseeksize=4 alignbytes=8 prototype=define Linker and Libraries: ld='c99' ldflags ='-qxplink -qdll' libpth=/lib /usr/lib libs=-lm -lc perllibs=-lm -lc libc= so=so useshrplib=true libperl=libperl.so gnulibc_version='' Dynamic Linking: dlsrc=dl_dllload.xs dlext=so d_dlsymun=undef ccdlflags='-qxplink -qdll /u/pdkuzm/ussport/perl/perl-build/libperl.x' cccdlflags='-c -qexportall -qxplink -qdll' lddlflags='-qxplink -qdll /u/pdkuzm/ussport/perl/perl-build/libperl.x'
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: SMOKE1c7e8142ce2e4dc3295717ec9fe9f344cb5ce4fb Built under os390 Compiled at Dec 11 2017 16:42:45 @INC: lib /usr/local/lib/perl5/site_perl/5.27.7/os390 /usr/local/lib/perl5/site_perl/5.27.7 /usr/local/lib/perl5/5.27.7/os390 /usr/local/lib/perl5/5.27.7 --Yaroslav В Вт., 12/12/2017 в 13:55 +0000, Dave Mitchell пишет: On Tue, Dec 12, 2017 at 06:23:47AM +0000, Yaroslav Kuzmin wrote: Log available at https://drive.google.com/file/d/1jGDVWAw-L_ZBZHzfupDKy5uBNRKI9Dm7<https://drive.google.com/file/d/1jGDVWAw-L_ZBZHzfupDKy5uBNRKI9Dm7/view?usp=sharing> Strange. In that run, it is failing four tests. In each case, a string concatentation is inserting a spurious null character. For example with $function = "XDIGIT"; $suffix = "_utf8"; # or "_LC_utf8" $char = "\x{b3}"; utf8::upgrade($char); $utf8_param_code = "0"; # or "-1" "test_is${function}$suffix('$char',"; the result is "test_isXDIGIT\x{0}_utf8('\x{b3}', 0)" with similar results for the variants shown in the comments. If you do further runs, do you get the same 4 tests consistently failing? Can you run the attached test script and show any output. If should produce no output normally. ================================ Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 877.328.2932 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy ================================ This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you.