perl-Tk-misc.patch

   1 --- Tk800.022/Tk/Widget.pm.wiget        Sat Apr 29 11:36:41 2000
   2 +++ Tk800.022/Tk/Widget.pm      Wed Nov 15 17:20:01 2000
   3 @@ -58,7 +58,7 @@
   4  sub True  { 1 }
   5  sub False { 0 }
   6
   7 -use Tk::Submethods( 'grab' =>  [qw(current status release -global)],
   8 +use Tk::Submethods ( 'grab' =>  [qw(current status release -global)],
   9                      'focus' => [qw(-force -lastfor)],
  10                      'pack'  => [qw(configure forget info propagate slaves)],
  11                      'grid'  => [qw(bbox columnconfigure configure forget info location propagate rowconfigure size slaves)],
  12 --- Tk800.022/Tk.pm.wiget       Sat Apr 29 11:36:41 2000
  13 +++ Tk800.022/Tk.pm     Wed Nov 15 17:22:02 2000
  14 @@ -9,7 +9,7 @@
  15  # derivation from Tk8.0 sources.
  16  #
  17  package Tk;
  18 -require 5.00404;
  19 +require 5.004_04;
  20  use     Tk::Event ();
  21  use     AutoLoader qw(AUTOLOAD);
  22  use     DynaLoader;