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.
