Select Code to Download

[root@sparts Unicode-Map8-0.13-kCcefS]# pwd
/root/.cpan/build/Unicode-Map8-0.13-kCcefS
...
t/map8.t ........ No subtests run 
t/compat.t .... ok   
t/unistr.t .... ok

print "not " unless $no->recode8($l1, "xyz{|}") eq "xyzæøå";

print "1..1\n";

...

print "ok 1\n";

[root@sparts Unicode-Map8-0.13-kCcefS]# make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_h
+arness(0, 'blib/lib', 'blib/arch')" t/*.t
...
Failed 1/5 test programs. 0/20 subtests failed.
make: *** [test_dynamic] Error 255

recode8(m1, m2, str)
        Map8* m1
...
            SvCUR_set(RETVAL, rlen);
        OUTPUT:
            RETVAL