perl-Tk-misc.patch

   1 diff -urNp -x '*.orig' Tk-804.034.org/Tk/Widget.pm Tk-804.034/Tk/Widget.pm
   2 --- Tk-804.034.org/Tk/Widget.pm 2015-05-22 08:50:55.000000000 +0200
   3 +++ Tk-804.034/Tk/Widget.pm     2021-05-08 23:13:26.906043565 +0200
   4 @@ -60,7 +60,7 @@ sub import
   5  sub True  { 1 }
   6  sub False { 0 }
   7
   8 -use Tk::Submethods( 'grab' =>  [qw(current status release -global)],
   9 +use Tk::Submethods ( 'grab' =>  [qw(current status release -global)],
  10                      'focus' => [qw(-force -lastfor)],
  11                      'pack'  => [qw(configure forget info propagate slaves)],
  12                      'grid'  => [qw(bbox columnconfigure configure forget info location propagate remove rowconfigure size slaves)],