perl 5.38.0 rebuild

[packages/perl-Tk.git] / perl-Tk-misc.patch

diff --git a/perl-Tk-misc.patch b/perl-Tk-misc.patch
index 6f67dee86c79ca3dab050d8c5d706bf75fb7a894..974cdfa170bb81fc8c0093806921d9b1774c11e5 100644 (file)
--- a/perl-Tk-misc.patch
+++ b/perl-Tk-misc.patch
@@ -1,6 +1,7 @@
---- Tk/Widget.pm~      Wed Mar 31 19:01:19 1999
-+++ Tk/Widget.pm       Tue Nov  9 14:46:52 1999
-@@ -56,7 +56,7 @@
+diff -urNp -x '*.orig' Tk-804.034.org/Tk/Widget.pm Tk-804.034/Tk/Widget.pm
+--- Tk-804.034.org/Tk/Widget.pm        2015-05-22 08:50:55.000000000 +0200
++++ Tk-804.034/Tk/Widget.pm    2021-05-08 23:13:26.906043565 +0200
+@@ -60,7 +60,7 @@ sub import
  sub True  { 1 }
  sub False { 0 }
  
@@ -8,15 +9,4 @@
 +use Tk::Submethods ( 'grab' =>  [qw(current status release -global)],
                      'focus' => [qw(-force -lastfor)],
                      'pack'  => [qw(configure forget info propagate slaves)],
-                     'grid'  => [qw(bbox columnconfigure configure forget info location propagate rowconfigure size slaves)],
---- Tk.pm~     Wed Mar 31 10:49:25 1999
-+++ Tk.pm      Tue Nov  9 14:48:55 1999
-@@ -9,7 +9,7 @@
- # derivation from Tk8.0 sources.
- #
- package Tk;
--require 5.00404;
-+require 5.004_04;
- use     AutoLoader qw(AUTOLOAD);
- use     DynaLoader;
- require Exporter;
+                     'grid'  => [qw(bbox columnconfigure configure forget info location propagate remove rowconfigure size slaves)],