[root@sparts Unicode-Map8-0.13-kCcefS]# pwd
/root/.cpan/build/Unicode-Map8-0.13-kCcefS
[root@sparts Unicode-Map8-0.13-kCcefS]# make clean
[root@sparts Unicode-Map8-0.13-kCcefS]# make
...
map8x.c: In function ‘map8_recode8’:
map8x.c:321: warning: pointer targets in passing argument 1 of ‘strlen’ differ in signedness
map8x.c:314: warning: unused variable ‘uc’
...
[root@sparts Unicode-Map8-0.13-kCcefS]# make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/callback.t .. ok   
t/map8.t ........ No subtests run 
t/compat.t .... ok   
t/unistr.t .... ok  

##</code><code>##

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

##</code><code>##

print "1..1\n";

use strict;
use Unicode::Map8 qw(NOCHAR);

print "MAPS_DIR = $Unicode::Map8::MAPS_DIR\n";

my $l1 = Unicode::Map8->new("latin1") || die;
my $no = Unicode::Map8->new("no")     || die;

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

my $t1 = $no->recode8($l1, "xyz{|}");

print "ok 1\n";


##</code><code>##

[root@sparts Unicode-Map8-0.13-kCcefS]# make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/callback.t .. ok   
t/cm.t ........ Usage: Unicode::Map8::recode8(m1, m2, str) at t/cm.t line 15.
t/cm.t ........ Dubious, test returned 9 (wstat 2304, 0x900)
Failed 1/1 subtests 
t/compat.t .... ok   
t/unistr.t .... ok   

Test Summary Report
-------------------
t/cm.t      (Wstat: 2304 Tests: 0 Failed: 0)
  Non-zero exit status: 9
  Parse errors: Bad plan.  You planned 1 tests but ran 0.
Files=5, Tests=20,  0 wallclock secs ( 0.05 usr  0.04 sys +  0.14 cusr  0.06 csys =  0.29 CPU)
Result: FAIL
Failed 1/5 test programs. 0/20 subtests failed.
make: *** [test_dynamic] Error 255


##</code><code>##

recode8(m1, m2, str)
        Map8* m1
        Map8* m2
        PREINIT:
            STRLEN len;
            STRLEN rlen;
            char*  res;
        INPUT:
            char* str = SvPV(ST(2), len);
        CODE:
            RETVAL = newSV(len + 1);
            SvPOK_on(RETVAL);
            res = SvPVX(RETVAL);
            map8_recode8(m1, m2, str, res, len, &rlen);
            res[rlen] = '\0';
            SvCUR_set(RETVAL, rlen);
        OUTPUT:
            RETVAL