This distribution has been tested as part of the cpan-testers effort to test as many new uploads to CPAN as possible. See http://testers.cpan.org/ Please cc any replies to [EMAIL PROTECTED] to keep other test volunteers informed and to prevent any duplicate effort. -- Running make test PERL_DL_NONLAZY=1 /usr/local/bin/perl -Iblib/arch -Iblib/lib -I/usr/local/lib/perl5/5.6.0/ppc-linux -I/usr/local/lib/perl5/5.6.0 -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t t/format_bytes......ok t/format_negative...ok t/format_number.....ok t/format_picture....ok t/format_price......ok t/locale............ok 3/3FAILED test 2 Failed 1/3 tests, 66.67% okay t/object............ok t/round.............ok t/unformat_number...ok Failed Test Status Wstat Total Fail Failed List of failed ------------------------------------------------------------------------------- t/locale.t 3 1 33.33% 2 Failed 1/9 test scripts, 88.89% okay. 1/63 subtests failed, 98.41% okay. make: *** [test_dynamic] Error 29 /usr/bin/make test -- NOT OK bin@schinder% perl -Mblib t/locale.t Using /usr/local/src/.cpan/build/Number-Format-1.42/blib 1..3 ok 1 not ok 2 ok 3 In the debugger: DB<1> print $german->format_price(123456.789) DEM 123.456,00 Here's where I think it happens. At the end of Number::Format::round: DB<10> p $result 123456,79 DB<11> n Number::Format::round(/usr/local/src/.cpan/build/Number-Format-1.42/blib/lib/Number/Format.pm:360): 360: return $result; DB<11> n Number::Format::format_number(/usr/local/src/.cpan/build/Number-Format-1.42/blib/lib/Number/Format.pm:404): 404: my ($integer, $decimal) = split(/\./, $number, 2); DB<11> p $number 123456,79 So at line 420: 420: $integer = '0' if $integer eq ''; DB<17> p $integer 123.456.,79 DB<23> n Number::Format::format_price(/usr/local/src/.cpan/build/Number-Format-1.42/blib/lib/Number/Format.pm:624): 624: return ($sign < 0) ? $self->format_negative($result) : $result; DB<23> p $result DEM 123.456.,79 -- Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration: Platform: osname=linux, osvers=2.2.14, archname=ppc-linux uname='linux c22234-c.scllg1.pa.home.com 2.2.14 #2 sun jan 9 20:34:00 est 2000 ppc unknown ' config_args='-Dcc=gcc -Dprefix=/usr/local -des' hint=recommended, useposix=true, d_sigaction=define usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef useperlio=undef d_sfio=undef uselargefiles=define use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef Compiler: cc='gcc', optimize='-O2', gccversion=2.95.2 19991024 (release/franzo) cppflags='-fno-strict-aliasing -I/usr/local/include' ccflags ='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' stdchar='char', d_stdstdio=define, usevfork=false intsize=4, longsize=4, ptrsize=4, doublesize=8 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8 ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=8, usemymalloc=n, prototype=define Linker and Libraries: ld='gcc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt libc=/lib/libc-2.1.3.so, so=so, useshrplib=false, libperl=libperl.a Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic' cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
