Perl Tk::Text Проблему с кирилицей

[Bootmen]

Здравствуйте Всем. Сделал небольшой скрипт с Tk/Perl и обнаружил что
что в окне созданным методом Text плохо или совсем не редактируется
введенный русский текст. То есть вводится нормальными русскими буквами.
А дальше начинается барда. Курсор от мыши всегда позиционируется в середине.
При использовании клавиш Влево Вправо половина строки наезжает на другую
или вообще исчезает за пределами окна. И т д. Запуская скрипт из MC лицезрею следующие маты:
e of uninitialized value in addition (+) at /usr/lib/perl5/vendor_perl/5.8.6/i386-linux/Tk/Text.pm line 1215
. Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.8.6/i386-linux/Tk/Text.pm line 1232.
Tk::Error: bad text index "@,18" at /usr/lib/perl5/vendor_perl/5.8.6/i386-linux/Tk.pm line 247. Tk callback for .frame.text
<Key-Down> (command bound to event)

У меня OC Mandriva2006, locale koi8-r. Помогите пож. Весь Инет перерыл.
Как будто на Perl/Tk в России никто уже не пишет. На двух форумах просил.
С уважением.

[Бармаглот]

Дай скрипт посмотреть

[Bootmen]

Дай скрипт посмотреть

Скрипт слишком длинноват да и стандартно все там.
Можно просто запустить стандартную команду "widget"
Она сей входит во все дистрибутивы линукса. И попробовать ввести в окошках текст на русском а потом подредактировать
Тажа самая байда получается.
Но если надо то могу тут и скриптик дать.
Спасибо за участие. Хоть кто то отозвался.

[Juliette]

Спасибо за участие. Хоть кто то отозвался.

Вполне возможно и сюда прикрепить скрипт в тегах codebox или в аттаче. На реальную инфу и сбегутся здешние программеры, а моральное участие они у нас не любят проявлять, дело от этого не сдвинется

[Bootmen]

Спасибо за участие. Хоть кто то отозвался.

Вполне возможно и сюда прикрепить скрипт в тегах codebox или в аттаче. На реальную инфу и сбегутся здешние программеры, а моральное участие они у нас не любят проявлять, дело от этого не сдвинется

Спасибо. Проблему уже решил.
Все оказалось просто как трусы за рупь двадцать.
Надо было убрать автоврапинг -(-wrap=>'none') Простенько но я сам не догадался.
Правда есть проблему с автопереносом строк, но это уже не так существенно.