Op een mooie herfstdag (Tuesday 24 September 2002 17:57), schreef H.Merijn Brand:
> 2. I'm testing conversions to and from Unicode > > --8<--- > use Test::More tests => 86; > > use strict; > > BEGIN { > use_ok ("PROCURA::Diac", 4.12); > SKIP: { > $^V ge v5.8.0 or skip "Need 5.8.0 for Unicode", 1; > use_ok ("charnames", qw(:full)); > } > } > -->8--- Perhaps the "BUGS" section of the charnames pragma applies here. If so, you can't do use_ok() on charnames. Maybe this works for you (untested): use Test::More; use strict; BEGIN { plan $^V ge v5.8.0 ? 85 : (skip_all => "Need 5.8.0 for UniCode"); use_ok( "PROCURA::Diac", 4.12 ); } use charnames; good luck, Abe -- Amsterdam Perl Mongers http://amsterdam.pm.org perl -wl %_ = reverse (tsuJ=>0, rehtona=>1, lreP=>2, rekcah=>3); @_ = reverse map { ($_{$_}, $_) } sort keys %_; $_ = reverse join " ", map $_[$_] => grep $_%2 => 0..$#_; print;