Ошибка командной строки командной строки Perl при выходе

Question

У меня проблема, когда выход из скрипта Perl Tkx вызывает сбой интерпретатора командной строки Perl.

Пример:

use strict; 
use warnings; 
use Tkx; 

my $mw  = Tkx::widget->new('.'); 
my $button = $mw->new_ttk__button(-text => "Hello", -command => \&main); 

Tkx::pack($button); 

Tkx::MainLoop; 

sub main { 
    print "TESTING\n"; 
    exit 0; 
} 

Этот код генерирует следующий вывод:

нажав на «Привет» кнопка вызывает main() подпрограмму, которая печатает «ТЕСТИРОВАНИЕ», а затем пытается выйти и сбой в командной строке:

Это происходит только с Tkx скриптами и будет только сбой, если программа уже ввела MainLoop перед вызовом exit. Кто-нибудь знает, что здесь происходит?

---

Perl Информация о версии:

Answer 1

Представляется, что эта проблема началась, когда я перешел с 64-битной Perl 32 бит Perl. Переключение на 64-битную версию Perl решило проблему.

Стоит отметить, что решение choroba для уничтожения главного окна с использованием g_destroy перед выходом разрешило проблему даже при запуске 32-битной версии Perl. Также, вероятно, лучше всего вручную уничтожить свое окно перед выходом, даже если Perl может самостоятельно его очистить ... вы никогда не знаете, какую версию Perl кто-то пытается запустить ваш скрипт, возможно, будет!