- starting preparation for Th.

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

diff --git a/perl-Tk-paths.patch b/perl-Tk-paths.patch
index ef5c226982eaade59340db007e1e2459b111adc5..2a089320b0bd29ab77be5faa197c58035358601d 100644 (file)
--- a/perl-Tk-paths.patch
+++ b/perl-Tk-paths.patch
@@ -1,1317 +1,1697 @@
---- Tk800.022/Contrib/book-examples/f-15.5.pl.wiget    Tue Jul 27 20:20:04 1999
-+++ Tk800.022/Contrib/book-examples/f-15.5.pl  Wed Nov 15 17:10:09 2000
+find . -type f -exec sed -i 's*#!/usr/local/bin/perl*#!/usr/bin/perl*' {} \;
+
+diff -Nru Tk-804.027.vanilla/Compound/compound_demo Tk-804.027/Compound/compound_demo
+--- Tk-804.027.vanilla/Compound/compound_demo  2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Compound/compound_demo  2005-03-11 20:36:24.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use Tk;
+ use Tk::Compound;
+ my $mw = MainWindow->new;
+diff -Nru Tk-804.027.vanilla/Contrib/TickerTape Tk-804.027/Contrib/TickerTape
+--- Tk-804.027.vanilla/Contrib/TickerTape      2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Contrib/TickerTape      2005-03-11 20:36:24.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
+ 
+ =head1 NAME
+ 
+diff -Nru Tk-804.027.vanilla/Contrib/book-examples/f-15.5.pl Tk-804.027/Contrib/book-examples/f-15.5.pl
+--- Tk-804.027.vanilla/Contrib/book-examples/f-15.5.pl 2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Contrib/book-examples/f-15.5.pl 2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  #
  # Figure 15.5, p153
---- Tk800.022/Contrib/book-examples/f-16.1.pl.wiget    Tue Jul 27 20:20:04 1999
-+++ Tk800.022/Contrib/book-examples/f-16.1.pl  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Contrib/book-examples/f-16.1.pl Tk-804.027/Contrib/book-examples/f-16.1.pl
+--- Tk-804.027.vanilla/Contrib/book-examples/f-16.1.pl 2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Contrib/book-examples/f-16.1.pl 2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  #
  # Figure 16.1, p159
---- Tk800.022/Contrib/book-examples/f-16.10.pl.wiget   Tue Jul 27 20:20:04 1999
-+++ Tk800.022/Contrib/book-examples/f-16.10.pl Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Contrib/book-examples/f-16.10.pl Tk-804.027/Contrib/book-examples/f-16.10.pl
+--- Tk-804.027.vanilla/Contrib/book-examples/f-16.10.pl        2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Contrib/book-examples/f-16.10.pl        2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  #
  # Figure 16.8, p166
---- Tk800.022/Contrib/book-examples/f-16.2.pl.wiget    Tue Jul 27 20:20:04 1999
-+++ Tk800.022/Contrib/book-examples/f-16.2.pl  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Contrib/book-examples/f-16.2.pl Tk-804.027/Contrib/book-examples/f-16.2.pl
+--- Tk-804.027.vanilla/Contrib/book-examples/f-16.2.pl 2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Contrib/book-examples/f-16.2.pl 2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  #
  # Figure 16.2, p161
---- Tk800.022/Contrib/book-examples/f-16.3.pl.wiget    Tue Jul 27 20:20:04 1999
-+++ Tk800.022/Contrib/book-examples/f-16.3.pl  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Contrib/book-examples/f-16.3.pl Tk-804.027/Contrib/book-examples/f-16.3.pl
+--- Tk-804.027.vanilla/Contrib/book-examples/f-16.3.pl 2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Contrib/book-examples/f-16.3.pl 2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  #
  # Figure 16.3, p162
---- Tk800.022/Contrib/book-examples/f-16.6.pl.wiget    Tue Jul 27 20:20:04 1999
-+++ Tk800.022/Contrib/book-examples/f-16.6.pl  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Contrib/book-examples/f-16.6.pl Tk-804.027/Contrib/book-examples/f-16.6.pl
+--- Tk-804.027.vanilla/Contrib/book-examples/f-16.6.pl 2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Contrib/book-examples/f-16.6.pl 2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  #
  # Figure 16.6, p165
---- Tk800.022/Contrib/book-examples/f-16.7.pl.wiget    Tue Jul 27 20:20:04 1999
-+++ Tk800.022/Contrib/book-examples/f-16.7.pl  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Contrib/book-examples/f-16.7.pl Tk-804.027/Contrib/book-examples/f-16.7.pl
+--- Tk-804.027.vanilla/Contrib/book-examples/f-16.7.pl 2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Contrib/book-examples/f-16.7.pl 2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  #
  # Figure 16.7, p166
---- Tk800.022/Contrib/book-examples/f-16.8.pl.wiget    Tue Jul 27 20:20:04 1999
-+++ Tk800.022/Contrib/book-examples/f-16.8.pl  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Contrib/book-examples/f-16.8.pl Tk-804.027/Contrib/book-examples/f-16.8.pl
+--- Tk-804.027.vanilla/Contrib/book-examples/f-16.8.pl 2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Contrib/book-examples/f-16.8.pl 2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  #
  # Figure 16.8, p166
---- Tk800.022/Contrib/book-examples/f-16.9.pl.wiget    Tue Jul 27 20:20:04 1999
-+++ Tk800.022/Contrib/book-examples/f-16.9.pl  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Contrib/book-examples/f-16.9.pl Tk-804.027/Contrib/book-examples/f-16.9.pl
+--- Tk-804.027.vanilla/Contrib/book-examples/f-16.9.pl 2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Contrib/book-examples/f-16.9.pl 2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  #
  # Figure 16.8, p166
---- Tk800.022/Contrib/TickerTape.wiget Tue Jul 27 20:20:04 1999
-+++ Tk800.022/Contrib/TickerTape       Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl
-+#!/usr/bin/perl
+diff -Nru Tk-804.027.vanilla/Contrib/book-examples/lusol-f16.3 Tk-804.027/Contrib/book-examples/lusol-f16.3
+--- Tk-804.027.vanilla/Contrib/book-examples/lusol-f16.3       2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Contrib/book-examples/lusol-f16.3       2005-03-11 20:36:24.000000000 +0100
+@@ -16,7 +16,7 @@
+ first non-strict/with symbolic references, the second strict/hard refs.
  
- =head1 NAME 
+ -------------------------------- 1 -------------------------------------------
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
  
---- Tk800.022/Contrib/fd_demo.wiget    Tue Jul 27 20:20:04 1999
-+++ Tk800.022/Contrib/fd_demo  Wed Nov 15 17:10:09 2000
+ #
+ # Figure 16.3, p162
+@@ -43,7 +43,7 @@
+ 
+ MainLoop;
+ -------------------------------- 2 -------------------------------------------
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ 
+ #
+ # Figure 16.3, p162
+diff -Nru Tk-804.027.vanilla/Contrib/fd_demo Tk-804.027/Contrib/fd_demo
+--- Tk-804.027.vanilla/Contrib/fd_demo 2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Contrib/fd_demo 2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  require Tk::FileDialog;
---- Tk800.022/Contrib/testlistbox.wiget        Tue Jul 27 20:20:04 1999
-+++ Tk800.022/Contrib/testlistbox      Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Contrib/testlistbox Tk-804.027/Contrib/testlistbox
+--- Tk-804.027.vanilla/Contrib/testlistbox     2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/Contrib/testlistbox     2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl
 +#!/usr/bin/perl
  use Tk;
  use Tk::TiedListbox;
  
---- Tk800.022/DragDrop/drag_test.wiget Tue Jul 27 20:20:04 1999
-+++ Tk800.022/DragDrop/drag_test       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/DragDrop/drag_test Tk-804.027/DragDrop/drag_test
+--- Tk-804.027.vanilla/DragDrop/drag_test      2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/DragDrop/drag_test      2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  use strict;
  use Tk::DragDrop qw(Sun);
---- Tk800.022/DragDrop/has_sun.wiget   Tue Jul 27 20:20:04 1999
-+++ Tk800.022/DragDrop/has_sun Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/DragDrop/has_sun Tk-804.027/DragDrop/has_sun
+--- Tk-804.027.vanilla/DragDrop/has_sun        2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/DragDrop/has_sun        2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  
  my $mw = MainWindow->new;
---- Tk800.022/DragDrop/local_test.wiget        Tue Jul 27 20:20:04 1999
-+++ Tk800.022/DragDrop/local_test      Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/DragDrop/local_test Tk-804.027/DragDrop/local_test
+--- Tk-804.027.vanilla/DragDrop/local_test     2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/DragDrop/local_test     2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  use strict;
  use Tk::DragDrop;
---- Tk800.022/DragDrop/motion_test.wiget       Tue Jul 27 20:20:04 1999
-+++ Tk800.022/DragDrop/motion_test     Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/DragDrop/motion_test Tk-804.027/DragDrop/motion_test
+--- Tk-804.027.vanilla/DragDrop/motion_test    2003-07-19 10:38:57.000000000 +0200
++++ Tk-804.027/DragDrop/motion_test    2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  use strict;
  use Tk::DragDrop;
---- Tk800.022/DragDrop/selection.wiget Tue Jul 27 20:20:04 1999
-+++ Tk800.022/DragDrop/selection       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/DragDrop/selection Tk-804.027/DragDrop/selection
+--- Tk-804.027.vanilla/DragDrop/selection      2003-08-10 12:47:51.000000000 +0200
++++ Tk-804.027/DragDrop/selection      2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  use strict;
  
---- Tk800.022/DragDrop/site_test.wiget Sat Aug 21 22:03:26 1999
-+++ Tk800.022/DragDrop/site_test       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/DragDrop/site_test Tk-804.027/DragDrop/site_test
+--- Tk-804.027.vanilla/DragDrop/site_test      2004-04-03 19:57:54.000000000 +0200
++++ Tk-804.027/DragDrop/site_test      2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  use strict;
  use Tk::DropSite;
---- Tk800.022/Extensions/ImageBack/background.wiget    Tue Jul 27 20:20:05 1999
-+++ Tk800.022/Extensions/ImageBack/background  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Event/event_demo Tk-804.027/Event/event_demo
+--- Tk-804.027.vanilla/Event/event_demo        2003-07-19 10:38:59.000000000 +0200
++++ Tk-804.027/Event/event_demo        2005-03-11 20:36:17.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ use Tk::Event;
+ Tk::Event::HandleSignals;
+diff -Nru Tk-804.027.vanilla/Event/findEvent Tk-804.027/Event/findEvent
+--- Tk-804.027.vanilla/Event/findEvent 2003-07-19 10:38:59.000000000 +0200
++++ Tk-804.027/Event/findEvent 2005-03-11 20:36:17.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ 
+ my @names = qw(Tcl_CreateEventSource Tcl_DeleteEventSource Tcl_DeleteEvents
+diff -Nru Tk-804.027.vanilla/Extensions/ImageBack/background Tk-804.027/Extensions/ImageBack/background
+--- Tk-804.027.vanilla/Extensions/ImageBack/background 2003-07-19 10:38:59.000000000 +0200
++++ Tk-804.027/Extensions/ImageBack/background 2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  use Tk::ImageBack;
  use Tk::Photo;
---- Tk800.022/HList/Tix2perl.wiget     Tue Jul 27 20:20:05 1999
-+++ Tk800.022/HList/Tix2perl   Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/HList/Tix2perl Tk-804.027/HList/Tix2perl
+--- Tk-804.027.vanilla/HList/Tix2perl  2003-07-19 10:38:59.000000000 +0200
++++ Tk-804.027/HList/Tix2perl  2005-03-11 20:36:16.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk::Pretty;
  
---- Tk800.022/TixGrid/tgdemo_config.wiget      Tue Jul 27 20:20:07 1999
-+++ Tk800.022/TixGrid/tgdemo_config    Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/JPEG/t/Read.t Tk-804.027/JPEG/t/Read.t
+--- Tk-804.027.vanilla/JPEG/t/Read.t   2004-03-27 11:28:26.000000000 +0100
++++ Tk-804.027/JPEG/t/Read.t   2005-03-11 20:36:15.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ print "1..1\n";
+ use Tk;
+ require Tk::JPEG;
+diff -Nru Tk-804.027.vanilla/JPEG/t/more.t Tk-804.027/JPEG/t/more.t
+--- Tk-804.027.vanilla/JPEG/t/more.t   2004-03-27 11:29:00.000000000 +0100
++++ Tk-804.027/JPEG/t/more.t   2005-03-11 20:36:15.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ use Test;
+ use Tk;
+diff -Nru Tk-804.027.vanilla/JPEG/tkjpeg Tk-804.027/JPEG/tkjpeg
+--- Tk-804.027.vanilla/JPEG/tkjpeg     2004-02-28 18:10:55.000000000 +0100
++++ Tk-804.027/JPEG/tkjpeg     2005-03-11 20:36:15.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ use Tk;
+ use Tk::JPEG;
+diff -Nru Tk-804.027.vanilla/TextList/textlist_demo Tk-804.027/TextList/textlist_demo
+--- Tk-804.027.vanilla/TextList/textlist_demo  2003-07-20 13:30:23.000000000 +0200
++++ Tk-804.027/TextList/textlist_demo  2005-03-11 20:36:21.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ 
+ require 5;
+ use strict;
+diff -Nru Tk-804.027.vanilla/TixGrid/tgdemo_config Tk-804.027/TixGrid/tgdemo_config
+--- Tk-804.027.vanilla/TixGrid/tgdemo_config   2003-07-19 10:39:01.000000000 +0200
++++ Tk-804.027/TixGrid/tgdemo_config   2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  # tixgrid demo
  #     standalone or sourceable in ptksh
  
---- Tk800.022/WinPhoto/try.wiget       Tue Jul 27 20:20:11 1999
-+++ Tk800.022/WinPhoto/try     Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/WinPhoto/try Tk-804.027/WinPhoto/try
+--- Tk-804.027.vanilla/WinPhoto/try    2003-08-24 14:07:26.000000000 +0200
++++ Tk-804.027/WinPhoto/try    2005-03-11 20:36:16.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use Tk;             
+ use Tk;
  use Tk::WinPhoto;
  use Cwd;
---- Tk800.022/Xlib/drops.wiget Tue Jul 27 20:20:11 1999
-+++ Tk800.022/Xlib/drops       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Xlib/drops Tk-804.027/Xlib/drops
+--- Tk-804.027.vanilla/Xlib/drops      2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/Xlib/drops      2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl
 +#!/usr/bin/perl
  
  
  use Tk;
---- Tk800.022/Xlib/load.wiget  Tue Jul 27 20:20:11 1999
-+++ Tk800.022/Xlib/load        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Xlib/load Tk-804.027/Xlib/load
+--- Tk-804.027.vanilla/Xlib/load       2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/Xlib/load       2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
  use Tk;
  use Tk::Xlib;
---- Tk800.022/Xlib/motif_site.wiget    Tue Jul 27 20:20:11 1999
-+++ Tk800.022/Xlib/motif_site  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Xlib/motif_site Tk-804.027/Xlib/motif_site
+--- Tk-804.027.vanilla/Xlib/motif_site 2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/Xlib/motif_site 2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  use Tk::Xlib;
  use Data::Dumper;
---- Tk800.022/Xlib/tree_demo.wiget     Tue Jul 27 20:20:11 1999
-+++ Tk800.022/Xlib/tree_demo   Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/Xlib/tree_demo Tk-804.027/Xlib/tree_demo
+--- Tk-804.027.vanilla/Xlib/tree_demo  2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/Xlib/tree_demo  2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  use Tk::Xlib;
  use Tk::HList;
---- Tk800.022/bin/defs.wiget   Tue Jul 27 20:20:11 1999
-+++ Tk800.022/bin/defs Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl 
-+#!/usr/bin/perl 
- 
- %def   = ();
- %need  = ();
---- Tk800.022/bin/defunc.wiget Tue Jul 27 20:20:11 1999
-+++ Tk800.022/bin/defunc       Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl
-+#!/usr/bin/perl
- 
- while (<>)
-  {
---- Tk800.022/bin/newstyle.wiget       Tue Jul 27 20:20:11 1999
-+++ Tk800.022/bin/newstyle     Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl
-+#!/usr/bin/perl
- 
- @files = @ARGV;
- 
---- Tk800.022/bin/perms.wiget  Tue Jul 27 20:20:11 1999
-+++ Tk800.022/bin/perms        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/add_version Tk-804.027/add_version
+--- Tk-804.027.vanilla/add_version     2003-12-14 20:36:35.000000000 +0100
++++ Tk-804.027/add_version     2005-03-11 20:36:37.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
  use File::Find;
- 
---- Tk800.022/bin/unres.wiget  Tue Jul 27 20:20:11 1999
-+++ Tk800.022/bin/unres        Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- 
- %done = ();
- %defs = ();
---- Tk800.022/bin/uselib.wiget Tue Jul 27 20:20:11 1999
-+++ Tk800.022/bin/uselib       Wed Nov 15 17:10:09 2000
+ use Getopt::Std;
+diff -Nru Tk-804.027.vanilla/adj_demo Tk-804.027/adj_demo
+--- Tk-804.027.vanilla/adj_demo        2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/adj_demo        2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
--#!/usr/local/bin/perl 
-+#!/usr/bin/perl 
- 
- use File::Find;
+-#!/usr/local/bin/perl  -w
++#!/usr/bin/perl  -w
+ use Tk;
+ require Tk::TextUndo;
  
---- Tk800.022/compile/findloader.wiget Tue Jul 27 20:20:11 1999
-+++ Tk800.022/compile/findloader       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/after_demo Tk-804.027/after_demo
+--- Tk-804.027.vanilla/after_demo      2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/after_demo      2005-03-11 20:36:16.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use Config; 
- my $sfx = $Config{'lib_ext'};
- foreach my $dir (@INC)
---- Tk800.022/compile/splitfunc.wiget  Tue Jul 27 20:20:11 1999
-+++ Tk800.022/compile/splitfunc        Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- use IO::File;
  
- while (<>)
---- Tk800.022/demos/browse.wiget       Tue Jul 27 20:20:12 1999
-+++ Tk800.022/demos/browse     Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- #
- # This script generates a directory browser, which lists the working directory and allows you to open files or subdirectories
- # by double-clicking.
---- Tk800.022/demos/color_editor.wiget Tue Jul 27 20:20:12 1999
-+++ Tk800.022/demos/color_editor       Wed Nov 15 17:10:09 2000
+ use Tk;
+ use strict;
+diff -Nru Tk-804.027.vanilla/after_leak Tk-804.027/after_leak
+--- Tk-804.027.vanilla/after_leak      2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/after_leak      2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- #
- # ColorEditor demonstration.
  
---- Tk800.022/demos/composite.wiget    Tue Jul 27 20:20:12 1999
-+++ Tk800.022/demos/composite  Wed Nov 15 17:10:09 2000
+ use Tk;
+ use Devel::Leak;
+diff -Nru Tk-804.027.vanilla/animate Tk-804.027/animate
+--- Tk-804.027.vanilla/animate 2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/animate 2005-03-11 20:36:37.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
+ use Tk;
  
- 
- use English;
---- Tk800.022/demos/dialog.wiget       Tue Jul 27 20:20:17 1999
-+++ Tk800.022/demos/dialog     Wed Nov 15 17:10:09 2000
+ my $mw = MainWindow->new;
+diff -Nru Tk-804.027.vanilla/autoraise Tk-804.027/autoraise
+--- Tk-804.027.vanilla/autoraise       2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/autoraise       2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
- # Demonstrate how to use Dialog to create and manipulate dialog objects.
- # lusol@Lehigh.EDU  95/06/14
---- Tk800.022/demos/hello.wiget        Tue Jul 27 20:20:17 1999
-+++ Tk800.022/demos/hello      Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- #
- # Simple Tk script to create a button that prints "Hello, world".  Click on 
- # the button to terminate the program.
---- Tk800.022/demos/ixset.wiget        Tue Jul 27 20:20:17 1999
-+++ Tk800.022/demos/ixset      Wed Nov 15 17:10:09 2000
+ use Tk;
+ 
+diff -Nru Tk-804.027.vanilla/basic_demo Tk-804.027/basic_demo
+--- Tk-804.027.vanilla/basic_demo      2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/basic_demo      2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl
 +#!/usr/bin/perl
  
- # A nice interface to "xset" to change X server settings
- #
---- Tk800.022/demos/rmt.wiget  Fri Jul 30 17:56:30 1999
-+++ Tk800.022/demos/rmt        Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -wT
-+#!/usr/bin/perl -wT
- #
- # This script implements a simple remote-control mechanism for Tk 
- # applications.  It allows you to select an application and then type 
---- Tk800.022/demos/rolodex.wiget      Tue Jul 27 20:20:17 1999
-+++ Tk800.022/demos/rolodex    Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- #
- # This script was written as an entry in Tom LaStrange's rolodex benchmark. 
- # It creates something that has some of the look and feel of a rolodex program,# although it's lifeless and doesn't actually do the rolodex application.
---- Tk800.022/demos/timer.wiget        Tue Jul 27 20:20:17 1999
-+++ Tk800.022/demos/timer      Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- #
- # This script generates a counter with start and stop buttons.  Exit with 
- # Ctrl/c or Ctrl/q.
---- Tk800.022/demos/tom.wiget  Tue Jul 27 20:20:17 1999
-+++ Tk800.022/demos/tom        Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- #
- # Sample program to get Tom Christiansen going with Perl/Tk.
+ # use Memory (2440);
  
---- Tk800.022/demos/widget.wiget       Fri Mar 31 14:55:09 2000
-+++ Tk800.022/demos/widget     Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/bin/defs Tk-804.027/bin/defs
+--- Tk-804.027.vanilla/bin/defs        2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/bin/defs        2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- 
- require 5.004;
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
  
---- Tk800.022/demos/widget_old.wiget   Tue Jul 27 20:20:18 1999
-+++ Tk800.022/demos/widget_old Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- #
- # This script demonstrates the various widgets provided by Tk, along with many of the features of the Tk toolkit.  This file
- # only contains code to generate the main window for the application, which invokes individual demonstrations.  The code for 
---- Tk800.022/pTk/mTk/tclmerge.wiget   Tue Jul 27 20:20:46 1999
-+++ Tk800.022/pTk/mTk/tclmerge Wed Nov 15 17:10:09 2000
+ %def   = ();
+ %need  = ();
+diff -Nru Tk-804.027.vanilla/bin/defunc Tk-804.027/bin/defunc
+--- Tk-804.027.vanilla/bin/defunc      2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/bin/defunc      2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- 
- use strict;
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
  
---- Tk800.022/pTk/mTk/tixmerge.wiget   Tue Jul 27 20:20:58 1999
-+++ Tk800.022/pTk/mTk/tixmerge Wed Nov 15 17:10:09 2000
+ while (<>)
+  {
+diff -Nru Tk-804.027.vanilla/bin/newstyle Tk-804.027/bin/newstyle
+--- Tk-804.027.vanilla/bin/newstyle    2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/bin/newstyle    2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
  
- use strict;
+ @files = @ARGV;
  
---- Tk800.022/pTk/LangIO.h.PL.wiget    Tue Jul 27 20:20:25 1999
-+++ Tk800.022/pTk/LangIO.h.PL  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/bin/perms Tk-804.027/bin/perms
+--- Tk-804.027.vanilla/bin/perms       2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/bin/perms       2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use Config;
- my @gard = qw(
- STDIO_H
---- Tk800.022/pTk/Tcl-pTk.wiget        Sun Dec 12 14:58:36 1999
-+++ Tk800.022/pTk/Tcl-pTk      Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- 
- use Carp;
+ use strict;
+ use File::Find;
  
---- Tk800.022/pTk/chext.wiget  Tue Jul 27 20:20:26 1999
-+++ Tk800.022/pTk/chext        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/bin/unres Tk-804.027/bin/unres
+--- Tk-804.027.vanilla/bin/unres       2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/bin/unres       2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
- open(NEED,"<need") || die;
- while (<NEED>)
---- Tk800.022/pTk/counts.wiget Tue Jul 27 20:20:26 1999
-+++ Tk800.022/pTk/counts       Wed Nov 15 17:10:09 2000
+ %done = ();
+ %defs = ();
+diff -Nru Tk-804.027.vanilla/bin/uselib Tk-804.027/bin/uselib
+--- Tk-804.027.vanilla/bin/uselib      2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/bin/uselib      2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl
 +#!/usr/bin/perl
  
- sub count
- {
---- Tk800.022/pTk/findX.wiget  Tue Jul 27 20:20:26 1999
-+++ Tk800.022/pTk/findX        Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- 
- BEGIN { require Exporter };
+ use File::Find;
  
---- Tk800.022/pTk/findcore.wiget       Tue Jul 27 20:20:26 1999
-+++ Tk800.022/pTk/findcore     Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/bindtest Tk-804.027/bindtest
+--- Tk-804.027.vanilla/bindtest        2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/bindtest        2005-03-11 20:36:16.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
+ use Tk;
+ use Tk::Menubar;
  
- BEGIN { require Exporter };
- 
---- Tk800.022/pTk/findstrings.wiget    Tue Jul 27 20:20:26 1999
-+++ Tk800.022/pTk/findstrings  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/build Tk-804.027/build
+--- Tk-804.027.vanilla/build   2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/build   2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- 
- 
- %table = ();
---- Tk800.022/pTk/from.wiget   Tue Jul 27 20:20:26 1999
-+++ Tk800.022/pTk/from Wed Nov 15 17:10:09 2000
+ use Config;
+ my $make = $Config{'make'};
+ my @para;
+diff -Nru Tk-804.027.vanilla/bulkedit Tk-804.027/bulkedit
+--- Tk-804.027.vanilla/bulkedit        2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/bulkedit        2005-03-11 20:36:15.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
- 
- use File::Find;
---- Tk800.022/pTk/genexc.wiget Tue Jul 27 20:20:26 1999
-+++ Tk800.022/pTk/genexc       Wed Nov 15 17:10:09 2000
+ use Tk;
+ use Tk::LabEntry;
+diff -Nru Tk-804.027.vanilla/canvas_ps Tk-804.027/canvas_ps
+--- Tk-804.027.vanilla/canvas_ps       2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/canvas_ps       2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
- my %mTk;
- my $dir;
---- Tk800.022/pTk/makeenglish.wiget    Tue Jul 27 20:21:09 1999
-+++ Tk800.022/pTk/makeenglish  Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- # BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) }
+ use Tk;
  
- die "Must be executed from Tk/pTk distribution directory\n" unless -f "Lang.h";
---- Tk800.022/pTk/mkVFunc.wiget        Sat Nov 20 22:09:59 1999
-+++ Tk800.022/pTk/mkVFunc      Wed Nov 15 17:17:16 2000
+diff -Nru Tk-804.027.vanilla/canvas_scroll Tk-804.027/canvas_scroll
+--- Tk-804.027.vanilla/canvas_scroll   2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/canvas_scroll   2005-03-11 20:36:16.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use strict;               
  
- my %Ignore;
---- Tk800.022/pTk/mkXinfo.wiget        Tue Jul 27 20:21:09 1999
-+++ Tk800.022/pTk/mkXinfo      Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
+ use Tk;
  
- $file = shift;
+diff -Nru Tk-804.027.vanilla/cbtest Tk-804.027/cbtest
+--- Tk-804.027.vanilla/cbtest  2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/cbtest  2005-03-11 20:36:17.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
  
---- Tk800.022/pTk/mkexc.wiget  Tue Jul 27 20:21:09 1999
-+++ Tk800.022/pTk/mkexc        Wed Nov 15 17:10:09 2000
+ use Tk;
+ use Tk::Pretty;
+diff -Nru Tk-804.027.vanilla/check_syms Tk-804.027/check_syms
+--- Tk-804.027.vanilla/check_syms      2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/check_syms      2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use strict;
- use vars qw(%ref %def);
- require "process_object";
---- Tk800.022/pTk/mkmethods.wiget      Tue Jul 27 20:21:09 1999
-+++ Tk800.022/pTk/mkmethods    Wed Nov 15 17:10:09 2000
+ use File::Find;
+ use Config;
+ my @libs;
+diff -Nru Tk-804.027.vanilla/checklen Tk-804.027/checklen
+--- Tk-804.027.vanilla/checklen        2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/checklen        2005-03-11 20:36:15.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
- $dst = shift;
+ use ExtUtils::Manifest "/mani/";
  
---- Tk800.022/pTk/tdiff.wiget  Tue Jul 27 20:21:10 1999
-+++ Tk800.022/pTk/tdiff        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/classtree Tk-804.027/classtree
+--- Tk-804.027.vanilla/classtree       2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/classtree       2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- 
- sub fail
- {
---- Tk800.022/pTk/why.wiget    Sat Nov 20 14:55:25 1999
-+++ Tk800.022/pTk/why  Wed Nov 15 17:10:09 2000
+ use strict;
+ use Tk;
+ use Tk::widgets qw(Tree Menubar);
+diff -Nru Tk-804.027.vanilla/cleanup Tk-804.027/cleanup
+--- Tk-804.027.vanilla/cleanup 2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/cleanup 2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
+ use File::Find;
+ find(\&wanted,'.');
  
- use strict;        
- 
---- Tk800.022/pod/extract/extpod.wiget Tue Nov  9 14:18:00 1999
-+++ Tk800.022/pod/extract/extpod       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/clip_bug Tk-804.027/clip_bug
+--- Tk-804.027.vanilla/clip_bug        2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/clip_bug        2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use strict;            
- use Getopt::Std;
- use ExtUtils::Manifest "/mani/";
---- Tk800.022/pod/recat.wiget  Tue Nov  9 14:18:01 1999
-+++ Tk800.022/pod/recat        Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- use strict;
- my $sec;            
- my %cat;       
---- Tk800.022/pod/subs.wiget   Tue Nov  9 14:18:01 1999
-+++ Tk800.022/pod/subs Wed Nov 15 17:10:09 2000
+ # Show a Tk canvas bug:
+ # when scrolling a canvas, clipping for embedded windows
+ # uses the embedded windows parent, not the canvas.
+diff -Nru Tk-804.027.vanilla/compile/findloader Tk-804.027/compile/findloader
+--- Tk-804.027.vanilla/compile/findloader      2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/compile/findloader      2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use blib;
- use Tk;                     
- use strict;
---- Tk800.022/add_version.wiget        Sat Jan 22 15:18:58 2000
-+++ Tk800.022/add_version      Wed Nov 15 17:10:09 2000
+ use Config;
+ my $sfx = $Config{'lib_ext'};
+ foreach my $dir (@INC)
+diff -Nru Tk-804.027.vanilla/compile/splitfunc Tk-804.027/compile/splitfunc
+--- Tk-804.027.vanilla/compile/splitfunc       2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/compile/splitfunc       2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use strict;
- use File::Find;
- use Getopt::Std;
---- Tk800.022/adj_demo.wiget   Tue Jul 27 20:20:11 1999
-+++ Tk800.022/adj_demo Wed Nov 15 17:10:09 2000
+ use IO::File;
+ 
+ while (<>)
+diff -Nru Tk-804.027.vanilla/copydate Tk-804.027/copydate
+--- Tk-804.027.vanilla/copydate        2003-07-25 22:16:19.000000000 +0200
++++ Tk-804.027/copydate        2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
--#!/usr/local/bin/perl  -w
-+#!/usr/bin/perl  -w
- use Tk;
- require Tk::TextUndo;
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
  
---- Tk800.022/after_demo.wiget Tue Jul 27 20:20:11 1999
-+++ Tk800.022/after_demo       Wed Nov 15 17:10:09 2000
+ use File::Find;
+ use Time::Local;
+diff -Nru Tk-804.027.vanilla/cursor_demo Tk-804.027/cursor_demo
+--- Tk-804.027.vanilla/cursor_demo     2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/cursor_demo     2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- 
  use Tk;
- use strict;
---- Tk800.022/after_leak.wiget Sun Dec 19 21:49:02 1999
-+++ Tk800.022/after_leak       Wed Nov 15 17:10:09 2000
+ 
+ my $mw = MainWindow->new;
+diff -Nru Tk-804.027.vanilla/demos/browse Tk-804.027/demos/browse
+--- Tk-804.027.vanilla/demos/browse    2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/demos/browse    2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- 
- use Tk;
- use Devel::Leak;
---- Tk800.022/animate.wiget    Tue Jul 27 20:20:11 1999
-+++ Tk800.022/animate  Wed Nov 15 17:10:09 2000
+ #
+ # This script generates a directory browser, which lists the working directory and allows you to open files or subdirectories
+ # by double-clicking.
+diff -Nru Tk-804.027.vanilla/demos/color_editor Tk-804.027/demos/color_editor
+--- Tk-804.027.vanilla/demos/color_editor      2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/demos/color_editor      2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use Tk;
+ #
+ # ColorEditor demonstration.
  
- my $mw = MainWindow->new;
---- Tk800.022/autoraise.wiget  Tue Jul 27 20:20:11 1999
-+++ Tk800.022/autoraise        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/demos/composite Tk-804.027/demos/composite
+--- Tk-804.027.vanilla/demos/composite 2003-07-19 10:39:03.000000000 +0200
++++ Tk-804.027/demos/composite 2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
- use Tk;
- 
---- Tk800.022/basic_demo.wiget Thu Apr 27 16:38:55 2000
-+++ Tk800.022/basic_demo       Wed Nov 15 17:16:24 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl
-+#!/usr/bin/perl
  
- # use Memory (2440);
- 
---- Tk800.022/bindtest.wiget   Tue Jul 27 20:20:11 1999
-+++ Tk800.022/bindtest Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- use Tk;
- use Tk::Menubar;
+ use English;
+diff -Nru Tk-804.027.vanilla/demos/demos/widtrib/npuz.pl Tk-804.027/demos/demos/widtrib/npuz.pl
+--- Tk-804.027.vanilla/demos/demos/widtrib/npuz.pl     2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/demos/demos/widtrib/npuz.pl     2005-03-11 20:36:13.000000000 +0100
+@@ -5,7 +5,7 @@
+ # distribution with permission.  It has been modified slightly to conform
+ # to the widget demo standard.
  
---- Tk800.022/build.wiget      Tue Jul 27 20:20:11 1999
-+++ Tk800.022/build    Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use Config;
- my $make = $Config{'make'};
- my @para;
---- Tk800.022/bulkedit.wiget   Sun Dec 19 22:04:14 1999
-+++ Tk800.022/bulkedit Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
+ #
+ # puz - demonstrate the Grid geometry manager by implementing an n-puzzle.
+ #
+diff -Nru Tk-804.027.vanilla/demos/demos/widtrib/plop.pl Tk-804.027/demos/demos/widtrib/plop.pl
+--- Tk-804.027.vanilla/demos/demos/widtrib/plop.pl     2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/demos/demos/widtrib/plop.pl     2005-03-11 20:36:13.000000000 +0100
+@@ -5,7 +5,7 @@
+ # distribution with permission.  It has been modified slightly to conform
+ # to the widget demo standard.
+ 
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use strict;
- use Tk;
- use Tk::LabEntry;
---- Tk800.022/canvas_ps.wiget  Tue Jul 27 20:20:11 1999
-+++ Tk800.022/canvas_ps        Wed Nov 15 17:10:09 2000
+ #
+ # plot_program - plot a series of continuous functions on a Perl/Tk Canvas.
+ #
+diff -Nru Tk-804.027.vanilla/demos/dialog Tk-804.027/demos/dialog
+--- Tk-804.027.vanilla/demos/dialog    2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/demos/dialog    2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
- use Tk;
- 
---- Tk800.022/canvas_scroll.wiget      Thu Nov 25 11:57:29 1999
-+++ Tk800.022/canvas_scroll    Wed Nov 15 17:10:09 2000
+ # Demonstrate how to use Dialog to create and manipulate dialog objects.
+ # lusol@Lehigh.EDU  95/06/14
+diff -Nru Tk-804.027.vanilla/demos/hello Tk-804.027/demos/hello
+--- Tk-804.027.vanilla/demos/hello     2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/demos/hello     2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- 
- use Tk;
- 
---- Tk800.022/cbtest.wiget     Tue Jul 27 20:20:11 1999
-+++ Tk800.022/cbtest   Wed Nov 15 17:10:09 2000
+ #
+ # Simple Tk script to create a button that prints "Hello, world".  Click on
+ # the button to terminate the program.
+diff -Nru Tk-804.027.vanilla/demos/ixset Tk-804.027/demos/ixset
+--- Tk-804.027.vanilla/demos/ixset     2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/demos/ixset     2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl
 +#!/usr/bin/perl
  
- use Tk;
- use Tk::Pretty;
---- Tk800.022/check_syms.wiget Tue Jul 27 20:20:11 1999
-+++ Tk800.022/check_syms       Wed Nov 15 17:10:09 2000
+ # A nice interface to "xset" to change X server settings
+ #
+diff -Nru Tk-804.027.vanilla/demos/rmt Tk-804.027/demos/rmt
+--- Tk-804.027.vanilla/demos/rmt       2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/demos/rmt       2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- use File::Find;     
- use Config; 
- my @libs;
---- Tk800.022/checklen.wiget   Tue Jul 27 20:20:11 1999
-+++ Tk800.022/checklen Wed Nov 15 17:10:09 2000
+-#!/usr/local/bin/perl -wT
++#!/usr/bin/perl -wT
+ #
+ # This script implements a simple remote-control mechanism for Tk
+ # applications.  It allows you to select an application and then type
+diff -Nru Tk-804.027.vanilla/demos/rolodex Tk-804.027/demos/rolodex
+--- Tk-804.027.vanilla/demos/rolodex   2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/demos/rolodex   2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- 
- use ExtUtils::Manifest "/mani/";
- 
---- Tk800.022/classtree.wiget  Tue Jul 27 20:20:11 1999
-+++ Tk800.022/classtree        Wed Nov 15 17:10:09 2000
+ #
+ # This script was written as an entry in Tom LaStrange's rolodex benchmark.
+ # It creates something that has some of the look and feel of a rolodex program,# although it's lifeless and doesn't actually do the rolodex application.
+diff -Nru Tk-804.027.vanilla/demos/timer Tk-804.027/demos/timer
+--- Tk-804.027.vanilla/demos/timer     2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/demos/timer     2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use strict;
- use Tk;    
- use Tk::widgets qw(Tree Menubar);
---- Tk800.022/cleanup.wiget    Tue Jul 27 20:20:11 1999
-+++ Tk800.022/cleanup  Wed Nov 15 17:10:09 2000
+ #
+ # This script generates a counter with start and stop buttons.  Exit with
+ # Ctrl/c or Ctrl/q.
+diff -Nru Tk-804.027.vanilla/demos/tom Tk-804.027/demos/tom
+--- Tk-804.027.vanilla/demos/tom       2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/demos/tom       2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use File::Find;
- find(\&wanted,'.');
+ #
+ # Sample program to get Tom Christiansen going with Perl/Tk.
  
---- Tk800.022/clip_bug.wiget   Tue Jul 27 20:20:11 1999
-+++ Tk800.022/clip_bug Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/demos/widget Tk-804.027/demos/widget
+--- Tk-804.027.vanilla/demos/widget    2004-02-28 17:35:25.000000000 +0100
++++ Tk-804.027/demos/widget    2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- # Show a Tk canvas bug:
- # when scrolling a canvas, clipping for embedded windows
- # uses the embedded windows parent, not the canvas.
---- Tk800.022/copydate.wiget   Tue Jul 27 20:20:12 1999
-+++ Tk800.022/copydate Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl 
-+#!/usr/bin/perl 
  
- use File::Find;
- use Time::Local;
---- Tk800.022/cursor_demo.wiget        Tue Jul 27 20:20:12 1999
-+++ Tk800.022/cursor_demo      Wed Nov 15 17:10:09 2000
+ use 5.008;
+ use Config;
+diff -Nru Tk-804.027.vanilla/demos/widget_old Tk-804.027/demos/widget_old
+--- Tk-804.027.vanilla/demos/widget_old        2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/demos/widget_old        2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use Tk;
- 
- my $mw = MainWindow->new;
---- Tk800.022/derived_test.wiget       Tue Jul 27 20:20:18 1999
-+++ Tk800.022/derived_test     Wed Nov 15 17:10:09 2000
+ #
+ # This script demonstrates the various widgets provided by Tk, along with many of the features of the Tk toolkit.  This file
+ # only contains code to generate the main window for the application, which invokes individual demonstrations.  The code for
+diff -Nru Tk-804.027.vanilla/derived_test Tk-804.027/derived_test
+--- Tk-804.027.vanilla/derived_test    2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/derived_test    2005-03-11 20:36:15.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  require Tk::Text;
  
---- Tk800.022/destroy_test.wiget       Tue Jul 27 20:20:18 1999
-+++ Tk800.022/destroy_test     Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/destroy_test Tk-804.027/destroy_test
+--- Tk-804.027.vanilla/destroy_test    2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/destroy_test    2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  
  use Tk;
---- Tk800.022/dfpy.wiget       Tue Jul 27 20:20:18 1999
-+++ Tk800.022/dfpy     Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/dfpy Tk-804.027/dfpy
+--- Tk-804.027.vanilla/dfpy    2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/dfpy    2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl
 +#!/usr/bin/perl
  
  use ExtUtils::Manifest "/mani/";
  use Cwd;
---- Tk800.022/disbutton.wiget  Tue Jul 27 20:20:18 1999
-+++ Tk800.022/disbutton        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/disbutton Tk-804.027/disbutton
+--- Tk-804.027.vanilla/disbutton       2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/disbutton       2005-03-11 20:36:37.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  package StickyButton;
  require Tk::Widget;
---- Tk800.022/dnd_demo.wiget   Tue Jul 27 20:20:18 1999
-+++ Tk800.022/dnd_demo Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/dnd_demo Tk-804.027/dnd_demo
+--- Tk-804.027.vanilla/dnd_demo        2003-07-19 10:39:05.000000000 +0200
++++ Tk-804.027/dnd_demo        2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  #
- # Demo code to exhibit features of dynamic construction and destruction of 
- # local (within app.) Drag and Drop sources and sinks. Written for and tested 
---- Tk800.022/dump_test.wiget  Tue Jul 27 20:20:24 1999
-+++ Tk800.022/dump_test        Wed Nov 15 17:10:09 2000
+ # Demo code to exhibit features of dynamic construction and destruction of
+ # local (within app.) Drag and Drop sources and sinks. Written for and tested
+diff -Nru Tk-804.027.vanilla/dump_test Tk-804.027/dump_test
+--- Tk-804.027.vanilla/dump_test       2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/dump_test       2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  my $top = MainWindow->new;
  my $i   = $top->Photo(-file => Tk->findINC('icon.gif'));
---- Tk800.022/embed.wiget      Tue Jul 27 20:20:24 1999
-+++ Tk800.022/embed    Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/dupsyms Tk-804.027/dupsyms
+--- Tk-804.027.vanilla/dupsyms 2003-07-23 13:42:10.000000000 +0200
++++ Tk-804.027/dupsyms 2005-03-11 20:36:21.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use File::Find;
+ use Cwd;
+ my $root = getcwd();
+diff -Nru Tk-804.027.vanilla/embed Tk-804.027/embed
+--- Tk-804.027.vanilla/embed   2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/embed   2005-03-11 20:36:20.000000000 +0100
 @@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w 
-+#!/usr/bin/perl -w 
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
  
  use Tk;
  use IO::File;
---- Tk800.022/error_prop.wiget Tue Jul 27 20:20:24 1999
-+++ Tk800.022/error_prop       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/error_prop Tk-804.027/error_prop
+--- Tk-804.027.vanilla/error_prop      2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/error_prop      2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  use Tk::ErrorDialog;
---- Tk800.022/ewidth_demo.wiget        Tue Jul 27 20:20:24 1999
-+++ Tk800.022/ewidth_demo      Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/ewidth_demo Tk-804.027/ewidth_demo
+--- Tk-804.027.vanilla/ewidth_demo     2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/ewidth_demo     2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  use strict;
  
---- Tk800.022/findbase.wiget   Tue Jul 27 20:20:24 1999
-+++ Tk800.022/findbase Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/fetail Tk-804.027/fetail
+--- Tk-804.027.vanilla/fetail  2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/fetail  2005-03-11 20:36:15.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ my $file = (@ARGV) ? shift : 'README';
+ 
+diff -Nru Tk-804.027.vanilla/findbase Tk-804.027/findbase
+--- Tk-804.027.vanilla/findbase        2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/findbase        2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use File::Find;
  
---- Tk800.022/floppy.wiget     Tue Jul 27 20:20:24 1999
-+++ Tk800.022/floppy   Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/floppy Tk-804.027/floppy
+--- Tk-804.027.vanilla/floppy  2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/floppy  2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl
 +#!/usr/bin/perl
  
  use ExtUtils::Manifest "/mani/";
  use Cwd;
---- Tk800.022/font_demo.wiget  Sun Dec 19 18:25:43 1999
-+++ Tk800.022/font_demo        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/font_demo Tk-804.027/font_demo
+--- Tk-804.027.vanilla/font_demo       2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/font_demo       2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  use Tk::X11Font;
  use Tk::ROText;
---- Tk800.022/font_test.wiget  Tue Jul 27 20:20:24 1999
-+++ Tk800.022/font_test        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/font_test Tk-804.027/font_test
+--- Tk-804.027.vanilla/font_test       2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/font_test       2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  
  
---- Tk800.022/fonts.wiget      Tue Jul 27 20:20:24 1999
-+++ Tk800.022/fonts    Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/fonts Tk-804.027/fonts
+--- Tk-804.027.vanilla/fonts   2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/fonts   2005-03-11 20:36:20.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
- use Tk;              
+ use Tk;
  use Data::Dumper;
---- Tk800.022/gdb.plx.wiget    Tue Jul 27 20:20:24 1999
-+++ Tk800.022/gdb.plx  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/gdb.plx Tk-804.027/gdb.plx
+--- Tk-804.027.vanilla/gdb.plx 2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/gdb.plx 2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Config;
  open(INIT,">.gdbinit") || die;
  my $perl = $^X;
---- Tk800.022/geo_mgr.wiget    Sat Dec 18 20:52:30 1999
-+++ Tk800.022/geo_mgr  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/gedi Tk-804.027/gedi
+--- Tk-804.027.vanilla/gedi    2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/gedi    2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
- use Tk;
- 
---- Tk800.022/geom.wiget       Tue Jul 27 20:20:24 1999
-+++ Tk800.022/geom     Wed Nov 15 17:10:09 2000
+ ###############################################################################
+ # Copyright (c) 1999  Greg London
+diff -Nru Tk-804.027.vanilla/geo_mgr Tk-804.027/geo_mgr
+--- Tk-804.027.vanilla/geo_mgr 2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/geo_mgr 2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  
---- Tk800.022/grepc.wiget      Mon Mar 13 15:24:03 2000
-+++ Tk800.022/grepc    Wed Nov 15 17:15:49 2000
+diff -Nru Tk-804.027.vanilla/geom Tk-804.027/geom
+--- Tk-804.027.vanilla/geom    2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/geom    2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
--#!/tools/local/perl -w
+-#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use strict;
- use vars qw($file);
- use Data::Dumper;
---- Tk800.022/grepperl.wiget   Thu Dec 30 15:52:10 1999
-+++ Tk800.022/grepperl Wed Nov 15 17:10:09 2000
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl 
-+#!/usr/bin/perl 
  
- use Getopt::Std;
+ use Tk;
  
---- Tk800.022/grid_adj.wiget   Tue Jul 27 20:20:24 1999
-+++ Tk800.022/grid_adj Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/grid_adj Tk-804.027/grid_adj
+--- Tk-804.027.vanilla/grid_adj        2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/grid_adj        2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl  -w
 +#!/usr/bin/perl  -w
  use Tk;
  require Tk::TextUndo;
  require Tk::Adjuster;
---- Tk800.022/grid_test.wiget  Tue Jul 27 20:20:24 1999
-+++ Tk800.022/grid_test        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/grid_test Tk-804.027/grid_test
+--- Tk-804.027.vanilla/grid_test       2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/grid_test       2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  my $mw = MainWindow->new;
  open(FILE,__FILE__);
---- Tk800.022/gridbug.wiget    Tue Jul 27 20:20:24 1999
-+++ Tk800.022/gridbug  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/gridbug Tk-804.027/gridbug
+--- Tk-804.027.vanilla/gridbug 2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/gridbug 2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  use Carp;
  $top = MainWindow->new();
---- Tk800.022/hackMM.wiget     Tue Jul 27 20:20:24 1999
-+++ Tk800.022/hackMM   Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/hackMM Tk-804.027/hackMM
+--- Tk-804.027.vanilla/hackMM  2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/hackMM  2005-03-11 20:36:15.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use File::Find;
  
---- Tk800.022/hlfm.wiget       Tue Jul 27 20:20:24 1999
-+++ Tk800.022/hlfm     Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/hlfm Tk-804.027/hlfm
+--- Tk-804.027.vanilla/hlfm    2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/hlfm    2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
  use Tk;
  require Tk::Dirlist;
---- Tk800.022/hlist_bg.wiget   Tue Jul 27 20:20:24 1999
-+++ Tk800.022/hlist_bg Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/hlist_bg Tk-804.027/hlist_bg
+--- Tk-804.027.vanilla/hlist_bg        2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/hlist_bg        2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  require Tk::HList;
  
---- Tk800.022/iconwin.wiget    Tue Jul 27 20:20:24 1999
-+++ Tk800.022/iconwin  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/iconimg Tk-804.027/iconimg
+--- Tk-804.027.vanilla/iconimg 2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/iconimg 2005-03-11 20:36:21.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ 
+ use Tk;
+ 
+diff -Nru Tk-804.027.vanilla/iconwin Tk-804.027/iconwin
+--- Tk-804.027.vanilla/iconwin 2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/iconwin 2005-03-11 20:36:15.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  
---- Tk800.022/image_test.wiget Tue Jul 27 20:20:24 1999
-+++ Tk800.022/image_test       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/image_test Tk-804.027/image_test
+--- Tk-804.027.vanilla/image_test      2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/image_test      2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  
---- Tk800.022/inline_bitmap.wiget      Tue Jul 27 20:20:24 1999
-+++ Tk800.022/inline_bitmap    Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/inline_bitmap Tk-804.027/inline_bitmap
+--- Tk-804.027.vanilla/inline_bitmap   2003-07-19 10:39:09.000000000 +0200
++++ Tk-804.027/inline_bitmap   2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
- use Tk;             
+ use Tk;
  
---- Tk800.022/keyWords.wiget   Tue Jul 27 20:20:24 1999
-+++ Tk800.022/keyWords Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/keyWords Tk-804.027/keyWords
+--- Tk-804.027.vanilla/keyWords        2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/keyWords        2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use File::Find;
  
---- Tk800.022/labelpack.wiget  Tue Jul 27 20:20:24 1999
-+++ Tk800.022/labelpack        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/labelpack Tk-804.027/labelpack
+--- Tk-804.027.vanilla/labelpack       2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/labelpack       2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  require Tk::LabEntry;
---- Tk800.022/lbformat_demo.wiget      Tue Jul 27 20:20:24 1999
-+++ Tk800.022/lbformat_demo    Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/lbformat_demo Tk-804.027/lbformat_demo
+--- Tk-804.027.vanilla/lbformat_demo   2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/lbformat_demo   2005-03-11 20:36:20.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
  use Tk;
  use Tk::Font;
---- Tk800.022/leak_test.wiget  Sun Dec 19 21:54:49 1999
-+++ Tk800.022/leak_test        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/leak_test Tk-804.027/leak_test
+--- Tk-804.027.vanilla/leak_test       2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/leak_test       2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  use Devel::Leak;
---- Tk800.022/lentry.wiget     Tue Jul 27 20:20:24 1999
-+++ Tk800.022/lentry   Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/lentry Tk-804.027/lentry
+--- Tk-804.027.vanilla/lentry  2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/lentry  2005-03-11 20:36:15.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  
---- Tk800.022/local_demo.wiget Tue Jul 27 20:20:24 1999
-+++ Tk800.022/local_demo       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/linux-progbar-toy Tk-804.027/linux-progbar-toy
+--- Tk-804.027.vanilla/linux-progbar-toy       2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/linux-progbar-toy       2005-03-11 20:36:17.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use Tk;
+ use Tk::widgets qw(ProgressBar);
+ 
+diff -Nru Tk-804.027.vanilla/local_demo Tk-804.027/local_demo
+--- Tk-804.027.vanilla/local_demo      2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/local_demo      2005-03-11 20:36:16.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
  use Tk qw(MainLoop *widget);
  use Carp;
---- Tk800.022/ls_table.wiget   Tue Jul 27 20:20:24 1999
-+++ Tk800.022/ls_table Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/ls_table Tk-804.027/ls_table
+--- Tk-804.027.vanilla/ls_table        2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/ls_table        2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  use Tk::Table;
---- Tk800.022/lsfonts.wiget    Tue Jul 27 20:20:24 1999
-+++ Tk800.022/lsfonts  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/lsfonts Tk-804.027/lsfonts
+--- Tk-804.027.vanilla/lsfonts 2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/lsfonts 2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  use Tk::Xlib;
---- Tk800.022/menubar.wiget    Tue Jul 27 20:20:24 1999
-+++ Tk800.022/menubar  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/menubar Tk-804.027/menubar
+--- Tk-804.027.vanilla/menubar 2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/menubar 2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  
---- Tk800.022/menubug.wiget    Tue Jul 27 20:20:24 1999
-+++ Tk800.022/menubug  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/menubug Tk-804.027/menubug
+--- Tk-804.027.vanilla/menubug 2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/menubug 2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  use strict;
  
---- Tk800.022/mitem_test.wiget Tue Jul 27 20:20:24 1999
-+++ Tk800.022/mitem_test       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/mitem_test Tk-804.027/mitem_test
+--- Tk-804.027.vanilla/mitem_test      2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/mitem_test      2005-03-11 20:36:15.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
-  
+ 
  require 5.003;
  use English;
---- Tk800.022/mkExt.wiget      Tue Jul 27 20:20:24 1999
-+++ Tk800.022/mkExt    Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/mkExt Tk-804.027/mkExt
+--- Tk-804.027.vanilla/mkExt   2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/mkExt   2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  sub translate
  {
---- Tk800.022/mkdist.wiget     Tue Jul 27 20:20:24 1999
-+++ Tk800.022/mkdist   Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/mkdist Tk-804.027/mkdist
+--- Tk-804.027.vanilla/mkdist  2003-12-21 14:04:32.000000000 +0100
++++ Tk-804.027/mkdist  2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
  
  use ExtUtils::Manifest "/mani/";
---- Tk800.022/motif_hack.wiget Tue Jul 27 20:20:24 1999
-+++ Tk800.022/motif_hack       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/motif_hack Tk-804.027/motif_hack
+--- Tk-804.027.vanilla/motif_hack      2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/motif_hack      2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Data::Dumper;
  use strict;
  use Tk;
---- Tk800.022/nested_dialog.wiget      Tue Jul 27 20:20:24 1999
-+++ Tk800.022/nested_dialog    Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/nested_dialog Tk-804.027/nested_dialog
+--- Tk-804.027.vanilla/nested_dialog   2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/nested_dialog   2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  use Tk::Dialog;
---- Tk800.022/oddmenu_demo.wiget       Tue Jul 27 20:20:24 1999
-+++ Tk800.022/oddmenu_demo     Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/oddmenu_demo Tk-804.027/oddmenu_demo
+--- Tk-804.027.vanilla/oddmenu_demo    2003-07-19 10:39:10.000000000 +0200
++++ Tk-804.027/oddmenu_demo    2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
  use Tk;
  
---- Tk800.022/pfm.wiget        Tue Jul 27 20:21:11 1999
-+++ Tk800.022/pfm      Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/pTk/Tcl-pTk Tk-804.027/pTk/Tcl-pTk
+--- Tk-804.027.vanilla/pTk/Tcl-pTk     2003-12-21 11:47:19.000000000 +0100
++++ Tk-804.027/pTk/Tcl-pTk     2005-03-11 20:36:37.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use open IO => ':bytes'; # Avoid UTF-8 issues with some perl5.8.0 (RedHat)
+ use Carp;
+ my $verbose = 0;
+diff -Nru Tk-804.027.vanilla/pTk/chext Tk-804.027/pTk/chext
+--- Tk-804.027.vanilla/pTk/chext       2003-07-19 10:39:11.000000000 +0200
++++ Tk-804.027/pTk/chext       2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- use POSIX qw(getcwd);
  
- use Tk;
---- Tk800.022/pictgrid.wiget   Tue Jul 27 20:21:11 1999
-+++ Tk800.022/pictgrid Wed Nov 15 17:10:09 2000
+ open(NEED,"<need") || die;
+ while (<NEED>)
+diff -Nru Tk-804.027.vanilla/pTk/counts Tk-804.027/pTk/counts
+--- Tk-804.027.vanilla/pTk/counts      2003-07-19 10:39:11.000000000 +0200
++++ Tk-804.027/pTk/counts      2005-03-11 20:36:37.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
+ 
+ sub count
+ {
+diff -Nru Tk-804.027.vanilla/pTk/deArg Tk-804.027/pTk/deArg
+--- Tk-804.027.vanilla/pTk/deArg       2003-07-27 18:42:08.000000000 +0200
++++ Tk-804.027/pTk/deArg       2005-03-11 20:36:24.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ $^I='.bak';
+ while (<>)
+  {
+diff -Nru Tk-804.027.vanilla/pTk/findX Tk-804.027/pTk/findX
+--- Tk-804.027.vanilla/pTk/findX       2003-07-19 10:39:11.000000000 +0200
++++ Tk-804.027/pTk/findX       2005-03-11 20:36:37.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ 
+ BEGIN { require Exporter };
+ 
+diff -Nru Tk-804.027.vanilla/pTk/findcore Tk-804.027/pTk/findcore
+--- Tk-804.027.vanilla/pTk/findcore    2003-07-19 10:39:11.000000000 +0200
++++ Tk-804.027/pTk/findcore    2005-03-11 20:36:37.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ 
+ BEGIN { require Exporter };
+ 
+diff -Nru Tk-804.027.vanilla/pTk/findstrings Tk-804.027/pTk/findstrings
+--- Tk-804.027.vanilla/pTk/findstrings 2003-07-19 10:39:11.000000000 +0200
++++ Tk-804.027/pTk/findstrings 2005-03-11 20:36:24.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ 
+ 
+ %table = ();
+diff -Nru Tk-804.027.vanilla/pTk/from Tk-804.027/pTk/from
+--- Tk-804.027.vanilla/pTk/from        2003-07-19 10:39:11.000000000 +0200
++++ Tk-804.027/pTk/from        2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
- use Tk;
  
---- Tk800.022/pipe_test.wiget  Tue Jul 27 20:21:11 1999
-+++ Tk800.022/pipe_test        Wed Nov 15 17:10:09 2000
+ use File::Find;
+diff -Nru Tk-804.027.vanilla/pTk/genexc Tk-804.027/pTk/genexc
+--- Tk-804.027.vanilla/pTk/genexc      2003-07-19 10:39:11.000000000 +0200
++++ Tk-804.027/pTk/genexc      2005-03-11 20:36:37.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ 
+ my %mTk;
+ my $dir;
+diff -Nru Tk-804.027.vanilla/pTk/mTk/tclmerge Tk-804.027/pTk/mTk/tclmerge
+--- Tk-804.027.vanilla/pTk/mTk/tclmerge        2003-07-19 10:39:26.000000000 +0200
++++ Tk-804.027/pTk/mTk/tclmerge        2005-03-11 20:36:25.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ 
+ use strict;
+ 
+diff -Nru Tk-804.027.vanilla/pTk/mTk/tixmerge Tk-804.027/pTk/mTk/tixmerge
+--- Tk-804.027.vanilla/pTk/mTk/tixmerge        2003-07-19 10:39:31.000000000 +0200
++++ Tk-804.027/pTk/mTk/tixmerge        2005-03-11 20:36:25.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ 
+ use strict;
+ 
+diff -Nru Tk-804.027.vanilla/pTk/makeenglish Tk-804.027/pTk/makeenglish
+--- Tk-804.027.vanilla/pTk/makeenglish 2003-07-19 10:39:39.000000000 +0200
++++ Tk-804.027/pTk/makeenglish 2005-03-11 20:36:37.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ # BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) }
+ 
+ die "Must be executed from Tk/pTk distribution directory\n" unless -f "Lang.h";
+diff -Nru Tk-804.027.vanilla/pTk/mkVFunc Tk-804.027/pTk/mkVFunc
+--- Tk-804.027.vanilla/pTk/mkVFunc     2004-02-29 12:22:01.000000000 +0100
++++ Tk-804.027/pTk/mkVFunc     2005-03-11 20:36:37.220727416 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ 
+ 
+diff -Nru Tk-804.027.vanilla/pTk/mkXinfo Tk-804.027/pTk/mkXinfo
+--- Tk-804.027.vanilla/pTk/mkXinfo     2003-07-19 10:39:39.000000000 +0200
++++ Tk-804.027/pTk/mkXinfo     2005-03-11 20:36:24.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ 
+ $file = shift;
+ 
+diff -Nru Tk-804.027.vanilla/pTk/mkexc Tk-804.027/pTk/mkexc
+--- Tk-804.027.vanilla/pTk/mkexc       2003-07-19 10:39:39.000000000 +0200
++++ Tk-804.027/pTk/mkexc       2005-03-11 20:36:24.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ use vars qw(%ref %def);
+ require "process_object";
+diff -Nru Tk-804.027.vanilla/pTk/mkmethods Tk-804.027/pTk/mkmethods
+--- Tk-804.027.vanilla/pTk/mkmethods   2003-07-19 10:39:39.000000000 +0200
++++ Tk-804.027/pTk/mkmethods   2005-03-11 20:36:37.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ 
+ $dst = shift;
+ 
+diff -Nru Tk-804.027.vanilla/pTk/p4e Tk-804.027/pTk/p4e
+--- Tk-804.027.vanilla/pTk/p4e 2003-07-28 20:48:04.000000000 +0200
++++ Tk-804.027/pTk/p4e 2005-03-11 20:36:24.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use File::Find;
+ use Cwd;
+ my $path = getcwd;
+diff -Nru Tk-804.027.vanilla/pTk/tdiff Tk-804.027/pTk/tdiff
+--- Tk-804.027.vanilla/pTk/tdiff       2003-07-20 18:00:11.000000000 +0200
++++ Tk-804.027/pTk/tdiff       2005-03-11 20:36:37.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ 
+ sub fail
+ {
+diff -Nru Tk-804.027.vanilla/pTk/why Tk-804.027/pTk/why
+--- Tk-804.027.vanilla/pTk/why 2003-07-19 10:39:40.000000000 +0200
++++ Tk-804.027/pTk/why 2005-03-11 20:36:24.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ 
+ use strict;
+ 
+diff -Nru Tk-804.027.vanilla/pfm Tk-804.027/pfm
+--- Tk-804.027.vanilla/pfm     2003-07-19 10:39:40.000000000 +0200
++++ Tk-804.027/pfm     2005-03-11 20:36:21.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use POSIX qw(getcwd);
+ 
+ use Tk;
+diff -Nru Tk-804.027.vanilla/pipe_test Tk-804.027/pipe_test
+--- Tk-804.027.vanilla/pipe_test       2003-07-19 10:39:40.000000000 +0200
++++ Tk-804.027/pipe_test       2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  
  require Tk::IO;
---- Tk800.022/pixmap_test.wiget        Tue Jul 27 20:21:11 1999
-+++ Tk800.022/pixmap_test      Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/pixmap_test Tk-804.027/pixmap_test
+--- Tk-804.027.vanilla/pixmap_test     2003-07-19 10:39:40.000000000 +0200
++++ Tk-804.027/pixmap_test     2005-03-11 20:36:15.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
  use Tk;
  require Tk::Pixmap;
---- Tk800.022/popup.wiget      Tue Jul 27 20:21:21 1999
-+++ Tk800.022/popup    Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/pod/Text.pod Tk-804.027/pod/Text.pod
+--- Tk-804.027.vanilla/pod/Text.pod    2004-03-10 09:38:08.000000000 +0100
++++ Tk-804.027/pod/Text.pod    2005-03-11 20:36:16.000000000 +0100
+@@ -2151,7 +2151,7 @@
+ 
+ For example:
+ 
+- #!/usr/local/bin/perl -w
++ #!/usr/bin/perl -w
+  use POSIX 'acos';
+  use Tk;
+  use strict;
+diff -Nru Tk-804.027.vanilla/pod/extract/extpod Tk-804.027/pod/extract/extpod
+--- Tk-804.027.vanilla/pod/extract/extpod      2003-07-19 10:39:41.000000000 +0200
++++ Tk-804.027/pod/extract/extpod      2005-03-11 20:36:15.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ use Getopt::Std;
+ use ExtUtils::Manifest "/mani/";
+diff -Nru Tk-804.027.vanilla/pod/recat Tk-804.027/pod/recat
+--- Tk-804.027.vanilla/pod/recat       2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/pod/recat       2005-03-11 20:36:16.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ my $sec;
+ my %cat;
+diff -Nru Tk-804.027.vanilla/pod/subs Tk-804.027/pod/subs
+--- Tk-804.027.vanilla/pod/subs        2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/pod/subs        2005-03-11 20:36:15.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use blib;
+ use Tk;
+ use strict;
+diff -Nru Tk-804.027.vanilla/point_test Tk-804.027/point_test
+--- Tk-804.027.vanilla/point_test      2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/point_test      2005-03-11 20:36:16.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ use Tk;
+ 
+diff -Nru Tk-804.027.vanilla/popup Tk-804.027/popup
+--- Tk-804.027.vanilla/popup   2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/popup   2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  
  use Tk;
---- Tk800.022/popup_menu.wiget Tue Jul 27 20:21:21 1999
-+++ Tk800.022/popup_menu       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/popup_menu Tk-804.027/popup_menu
+--- Tk-804.027.vanilla/popup_menu      2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/popup_menu      2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
  
  use Tk;
---- Tk800.022/prop_demo.wiget  Tue Jul 27 20:21:21 1999
-+++ Tk800.022/prop_demo        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/prop_demo Tk-804.027/prop_demo
+--- Tk-804.027.vanilla/prop_demo       2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/prop_demo       2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  
---- Tk800.022/ptked.wiget      Sat Apr 29 10:20:31 2000
-+++ Tk800.022/ptked    Wed Nov 15 17:15:07 2000
+diff -Nru Tk-804.027.vanilla/ptked Tk-804.027/ptked
+--- Tk-804.027.vanilla/ptked   2004-03-17 22:30:03.000000000 +0100
++++ Tk-804.027/ptked   2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
- use IO;
  use Socket;
---- Tk800.022/ptknews.wiget    Tue Jul 27 20:21:21 1999
-+++ Tk800.022/ptknews  Wed Nov 15 17:10:09 2000
+ use IO::Socket;
+diff -Nru Tk-804.027.vanilla/ptknews Tk-804.027/ptknews
+--- Tk-804.027.vanilla/ptknews 2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/ptknews 2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use strict;
  use Tk;
---- Tk800.022/scale_test.wiget Tue Jul 27 20:21:21 1999
-+++ Tk800.022/scale_test       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/scale_test Tk-804.027/scale_test
+--- Tk-804.027.vanilla/scale_test      2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/scale_test      2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  
---- Tk800.022/scrolled_demo.wiget      Tue Jul 27 20:21:21 1999
-+++ Tk800.022/scrolled_demo    Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/scrolled_demo Tk-804.027/scrolled_demo
+--- Tk-804.027.vanilla/scrolled_demo   2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/scrolled_demo   2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  use strict;
---- Tk800.022/sillymenu.wiget  Tue Jul 27 20:21:21 1999
-+++ Tk800.022/sillymenu        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/sillymenu Tk-804.027/sillymenu
+--- Tk-804.027.vanilla/sillymenu       2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/sillymenu       2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
  use Tk;
- 
---- Tk800.022/sockets.wiget    Tue Jul 27 20:21:21 1999
-+++ Tk800.022/sockets  Wed Nov 15 17:10:09 2000
+ use Data::Dumper;
+diff -Nru Tk-804.027.vanilla/sockets Tk-804.027/sockets
+--- Tk-804.027.vanilla/sockets 2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/sockets 2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use IO::Socket;
  use Tk::IO;
---- Tk800.022/stripblib.wiget  Tue Jul 27 20:21:21 1999
-+++ Tk800.022/stripblib        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/spinbox Tk-804.027/spinbox
+--- Tk-804.027.vanilla/spinbox 2003-07-23 19:11:51.000000000 +0200
++++ Tk-804.027/spinbox 2005-03-11 20:36:24.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ use Tk;
+ use Tk::widgets qw(Button Spinbox);
+diff -Nru Tk-804.027.vanilla/stripblib Tk-804.027/stripblib
+--- Tk-804.027.vanilla/stripblib       2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/stripblib       2005-03-11 20:36:13.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use File::Find;
  find(\&strip,'blib/arch');
  
---- Tk800.022/style_test.wiget Tue Jul 27 20:21:21 1999
-+++ Tk800.022/style_test       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/style_test Tk-804.027/style_test
+--- Tk-804.027.vanilla/style_test      2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/style_test      2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
- use Tk::HList;    
---- Tk800.022/submethods.wiget Tue Jul 27 20:21:21 1999
-+++ Tk800.022/submethods       Wed Nov 15 17:10:09 2000
+ use Tk::HList;
+diff -Nru Tk-804.027.vanilla/submethods Tk-804.027/submethods
+--- Tk-804.027.vanilla/submethods      2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/submethods      2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  $meth = "pTk/Methods.def";
  
  %sub = ();
---- Tk800.022/symbols.wiget    Tue Jul 27 20:21:21 1999
-+++ Tk800.022/symbols  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/symbols Tk-804.027/symbols
+--- Tk-804.027.vanilla/symbols 2003-07-19 10:39:42.000000000 +0200
++++ Tk-804.027/symbols 2005-03-11 20:36:20.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Config;
  
---- Tk800.022/table_demo.wiget Tue Jul 27 20:21:22 1999
-+++ Tk800.022/table_demo       Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/t/fileevent.t Tk-804.027/t/fileevent.t
+--- Tk-804.027.vanilla/t/fileevent.t   2004-03-27 11:21:15.000000000 +0100
++++ Tk-804.027/t/fileevent.t   2005-03-11 20:36:24.000000000 +0100
+@@ -1,7 +1,7 @@
+ BEGIN { $^W = 1; $| = 1;}
+ use Test;
+ 
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ #
+ # Severely hacked test based on IPC example from
+ # Advanced Perl/Tk Programming.
+@@ -294,7 +294,7 @@
+ 
+ } # end start_ipc_helper
+ __DATA__
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
+ 
+ use 5.005;
+ #use IPADM;
+diff -Nru Tk-804.027.vanilla/table_demo Tk-804.027/table_demo
+--- Tk-804.027.vanilla/table_demo      2003-07-19 10:39:43.000000000 +0200
++++ Tk-804.027/table_demo      2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  use Tk::Table;
---- Tk800.022/tainted.wiget    Tue Jul 27 20:21:22 1999
-+++ Tk800.022/tainted  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/tainted Tk-804.027/tainted
+--- Tk-804.027.vanilla/tainted 2003-07-19 10:39:43.000000000 +0200
++++ Tk-804.027/tainted 2005-03-11 20:36:20.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -T
 +#!/usr/bin/perl -T
  
  use Tk;
  
---- Tk800.022/tcl2perl.wiget   Thu Feb 17 21:51:43 2000
-+++ Tk800.022/tcl2perl Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/tcl2perl Tk-804.027/tcl2perl
+--- Tk-804.027.vanilla/tcl2perl        2003-07-19 10:39:43.000000000 +0200
++++ Tk-804.027/tcl2perl        2005-03-11 20:36:16.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  # Highly experimental tcl -> perl converter, aimed at eventually
  # completeing Tix merge
---- Tk800.022/tcolour.wiget    Tue Jul 27 20:21:22 1999
-+++ Tk800.022/tcolour  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/tcolour Tk-804.027/tcolour
+--- Tk-804.027.vanilla/tcolour 2003-07-19 10:39:43.000000000 +0200
++++ Tk-804.027/tcolour 2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  
---- Tk800.022/text_demo.wiget  Tue Jul 27 20:21:22 1999
-+++ Tk800.022/text_demo        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/tent Tk-804.027/tent
+--- Tk-804.027.vanilla/tent    2003-07-19 10:39:43.000000000 +0200
++++ Tk-804.027/tent    2005-03-11 20:36:21.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ use Tk;
+ use Tk::widgets qw(Button);
+diff -Nru Tk-804.027.vanilla/text_demo Tk-804.027/text_demo
+--- Tk-804.027.vanilla/text_demo       2003-09-28 11:48:05.000000000 +0200
++++ Tk-804.027/text_demo       2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  require Tk::Text;
---- Tk800.022/tie_basic.wiget  Tue Jul 27 20:21:22 1999
-+++ Tk800.022/tie_basic        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/tie_basic Tk-804.027/tie_basic
+--- Tk-804.027.vanilla/tie_basic       2003-07-19 10:39:43.000000000 +0200
++++ Tk-804.027/tie_basic       2005-03-11 20:36:20.000000000 +0100
 @@ -1,4 +1,4 @@
--#!/usr/local/bin/perl 
-+#!/usr/bin/perl 
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
  
  # use Memory (2440);
  
---- Tk800.022/tiehandle.wiget  Tue Jul 27 20:21:22 1999
-+++ Tk800.022/tiehandle        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/tiehandle Tk-804.027/tiehandle
+--- Tk-804.027.vanilla/tiehandle       2003-07-19 10:39:43.000000000 +0200
++++ Tk-804.027/tiehandle       2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  
---- Tk800.022/tietext.wiget    Tue Jul 27 20:21:22 1999
-+++ Tk800.022/tietext  Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/tietext Tk-804.027/tietext
+--- Tk-804.027.vanilla/tietext 2003-07-19 10:39:43.000000000 +0200
++++ Tk-804.027/tietext 2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk;
  
  {package Tk::Text::Contents;
---- Tk800.022/time.wiget       Tue Jul 27 20:21:22 1999
-+++ Tk800.022/time     Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/time Tk-804.027/time
+--- Tk-804.027.vanilla/time    2003-07-19 10:39:43.000000000 +0200
++++ Tk-804.027/time    2005-03-11 20:36:20.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use Tk::Stats 'Start';
  use strict;
  use Tk;
---- Tk800.022/tiny.wiget       Sat Apr  1 10:34:00 2000
-+++ Tk800.022/tiny     Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/tiny Tk-804.027/tiny
+--- Tk-804.027.vanilla/tiny    2003-09-08 21:21:53.000000000 +0200
++++ Tk-804.027/tiny    2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
  use Tk;
- use Tk::widgets qw(Button);  
---- Tk800.022/tixwm_demo.wiget Tue Jul 27 20:21:23 1999
-+++ Tk800.022/tixwm_demo       Wed Nov 15 17:10:09 2000
+ use Tk::widgets qw(Button);
+diff -Nru Tk-804.027.vanilla/tixwm_demo Tk-804.027/tixwm_demo
+--- Tk-804.027.vanilla/tixwm_demo      2003-07-19 10:39:44.000000000 +0200
++++ Tk-804.027/tixwm_demo      2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  use Tk::Dialog;
---- Tk800.022/tkperldoc.wiget  Sun Dec 19 18:28:57 1999
-+++ Tk800.022/tkperldoc        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/tkfontsel Tk-804.027/tkfontsel
+--- Tk-804.027.vanilla/tkfontsel       2004-03-24 15:29:32.000000000 +0100
++++ Tk-804.027/tkfontsel       2005-03-11 20:36:17.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ use Tk;
+ use Tk::Font;
+diff -Nru Tk-804.027.vanilla/tkperldoc Tk-804.027/tkperldoc
+--- Tk-804.027.vanilla/tkperldoc       2003-07-19 10:39:44.000000000 +0200
++++ Tk-804.027/tkperldoc       2005-03-11 20:36:17.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use strict;
  use Tk;
---- Tk800.022/tkpsh.wiget      Tue Jul 27 20:21:25 1999
-+++ Tk800.022/tkpsh    Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/tkpsh Tk-804.027/tkpsh
+--- Tk-804.027.vanilla/tkpsh   2003-07-19 10:39:44.000000000 +0200
++++ Tk-804.027/tkpsh   2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  require 5.001;
  use IO::Handle;
---- Tk800.022/tktail.wiget     Tue Jul 27 20:21:25 1999
-+++ Tk800.022/tktail   Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/tktail Tk-804.027/tktail
+--- Tk-804.027.vanilla/tktail  2003-07-19 10:39:44.000000000 +0200
++++ Tk-804.027/tktail  2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  use strict;
  use Tk;
  use IO::File;
---- Tk800.022/two_main.wiget   Sat Apr  1 09:33:59 2000
-+++ Tk800.022/two_main Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/two_main Tk-804.027/two_main
+--- Tk-804.027.vanilla/two_main        2003-07-19 10:39:44.000000000 +0200
++++ Tk-804.027/two_main        2005-03-11 20:36:21.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
  
  use Tk;
  use Tk::Xrm;
---- Tk800.022/uninstall.wiget  Tue Jul 27 20:21:25 1999
-+++ Tk800.022/uninstall        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/uninstall Tk-804.027/uninstall
+--- Tk-804.027.vanilla/uninstall       2003-07-19 10:39:44.000000000 +0200
++++ Tk-804.027/uninstall       2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w
- BEGIN {exec('perl5.002',$0,@ARGV)  unless ($] >= 5.002)} 
+ BEGIN {exec('perl5.002',$0,@ARGV)  unless ($] >= 5.002)}
  use Config;
  use Getopt::Long;
---- Tk800.022/xlib_demo.wiget  Tue Jul 27 20:21:25 1999
-+++ Tk800.022/xlib_demo        Wed Nov 15 17:10:09 2000
+diff -Nru Tk-804.027.vanilla/ventry_demo Tk-804.027/ventry_demo
+--- Tk-804.027.vanilla/ventry_demo     2003-07-19 10:39:44.000000000 +0200
++++ Tk-804.027/ventry_demo     2005-03-11 20:36:17.000000000 +0100
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ use Tk;
+ 
+diff -Nru Tk-804.027.vanilla/xlib_demo Tk-804.027/xlib_demo
+--- Tk-804.027.vanilla/xlib_demo       2003-07-19 10:39:44.000000000 +0200
++++ Tk-804.027/xlib_demo       2005-03-11 20:36:24.000000000 +0100
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl -w
 +#!/usr/bin/perl -w