This is already reported upstream: https://github.com/eserte/perl-tk/issues/105 Feel free to add your patch there, if you want.