LINUX.ORG.RU

Perl : Malformed UTF-8 character


0

0

В программе на PERL читаю данные из БД Oracle через DBI.
Все данные в кодировке UTF.

Далее использую модуль Switch и пишу что-то вроде этого:
switch($utf_str)
{

}
На что получаю ошибки 
Malformed UTF-8 character (unexpected non-continuation byte 0xc5, immediately after start byte 0xcb) in bitwise and (&) at /usr/local/lib/perl5/5.8.2/Switch.pm line 256, <CFG> line 30.

Вот проблемный кусочек Switch.pm:
....
....
sub switch(;$)
{
	my ($s_val) = @_ ? $_[0] : $_;
	my $s_ref = ref $s_val;
	
	if ($s_ref eq 'CODE')            # Line 256
	{
.....
.....
Знает кто-нибудь как с этим бороться???

perldoc utf8

anonymous
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.