perl-unicode

Re: Converting UTF-EBCDIC to UTF-8

2003-03-18 10:30:06
>Thank you for your report.
>
>I was careless about the trap on a non-ASCII platform
>like that ("a" eq "\x61") is not true.
>
>So the failed tests are fixed, and some tests are added.
>Ver. 0.20 is available from there:
>
>[TAR-GZ, HTML-ized POD]
>http://homepage1.nifty.com/nomenclator/perl/Unicode-Transform-0.20.tar.gz
>http://homepage1.nifty.com/nomenclator/perl/Unicode-Transform.html
>
>SADAHIRO Tomoyuki

I have now run this latest version on z/OS with the following results:

/defects/brian/unicode/Unicode-Transform-0.20:>make test
PERL_DL_NONLAZY=1 /defects/brian/nonthreaded/perl-5.8.0/perl "-I/defects/brian/n onthreaded/perl-5.8.0/lib" "-I/defects/brian/nonthreaded/perl-5.8.0/lib" "-MExtU
tils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/handler....ok
t/test.......FAILED tests 25, 27
       Failed 2/28 tests, 92.86% okay
Failed Test Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------------
t/test.t                            28    2    7.14%  25 27
Failed 1/2 test scripts, 50.00% okay. 2/38 subtests failed, 94.74% okay.
make: *** [test_dynamic] Error 121

I also had the warnings similar to the following when compiling on z/OS:

WARNING CCN3196 ./Transform.c:21 Initialization between types "unsigned int(*) (unsigned char*,unsigned int,unsigned int*)" and "unsigned long(*)(unsigned char*,unsigned int,unsigned int*)"
is not allowed.
FSUM3065 The COMPILE step ended with return code 4.

I got rid of these warnings by changing the return type all of the ord_in_* functions to STRLEN instead of UV, in the file unitrans.h. I choose this because the return type of the app_in_* functions were already STRLEN and they didn't generate warnings.

Brian