-diff -Nru Tk800.023/Contrib/TickerTape Tk800.023.new/Contrib/TickerTape
---- Tk800.023/Contrib/TickerTape Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Contrib/TickerTape Sat Sep 1 07:05:34 2001
+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
+ =head1 NAME
-diff -Nru Tk800.023/Contrib/book-examples/f-15.5.pl Tk800.023.new/Contrib/book-examples/f-15.5.pl
---- Tk800.023/Contrib/book-examples/f-15.5.pl Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Contrib/book-examples/f-15.5.pl Sat Sep 1 07:05:34 2001
+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
-diff -Nru Tk800.023/Contrib/book-examples/f-16.1.pl Tk800.023.new/Contrib/book-examples/f-16.1.pl
---- Tk800.023/Contrib/book-examples/f-16.1.pl Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Contrib/book-examples/f-16.1.pl Sat Sep 1 07:05:34 2001
+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
-diff -Nru Tk800.023/Contrib/book-examples/f-16.10.pl Tk800.023.new/Contrib/book-examples/f-16.10.pl
---- Tk800.023/Contrib/book-examples/f-16.10.pl Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Contrib/book-examples/f-16.10.pl Sat Sep 1 07:05:34 2001
+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
-diff -Nru Tk800.023/Contrib/book-examples/f-16.2.pl Tk800.023.new/Contrib/book-examples/f-16.2.pl
---- Tk800.023/Contrib/book-examples/f-16.2.pl Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Contrib/book-examples/f-16.2.pl Sat Sep 1 07:05:34 2001
+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
-diff -Nru Tk800.023/Contrib/book-examples/f-16.3.pl Tk800.023.new/Contrib/book-examples/f-16.3.pl
---- Tk800.023/Contrib/book-examples/f-16.3.pl Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Contrib/book-examples/f-16.3.pl Sat Sep 1 07:05:34 2001
+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
-diff -Nru Tk800.023/Contrib/book-examples/f-16.6.pl Tk800.023.new/Contrib/book-examples/f-16.6.pl
---- Tk800.023/Contrib/book-examples/f-16.6.pl Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Contrib/book-examples/f-16.6.pl Sat Sep 1 07:05:34 2001
+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
-diff -Nru Tk800.023/Contrib/book-examples/f-16.7.pl Tk800.023.new/Contrib/book-examples/f-16.7.pl
---- Tk800.023/Contrib/book-examples/f-16.7.pl Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Contrib/book-examples/f-16.7.pl Sat Sep 1 07:05:34 2001
+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
-diff -Nru Tk800.023/Contrib/book-examples/f-16.8.pl Tk800.023.new/Contrib/book-examples/f-16.8.pl
---- Tk800.023/Contrib/book-examples/f-16.8.pl Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Contrib/book-examples/f-16.8.pl Sat Sep 1 07:05:34 2001
+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
-diff -Nru Tk800.023/Contrib/book-examples/f-16.9.pl Tk800.023.new/Contrib/book-examples/f-16.9.pl
---- Tk800.023/Contrib/book-examples/f-16.9.pl Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Contrib/book-examples/f-16.9.pl Sat Sep 1 07:05:34 2001
+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
-diff -Nru Tk800.023/Contrib/fd_demo Tk800.023.new/Contrib/fd_demo
---- Tk800.023/Contrib/fd_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Contrib/fd_demo Sat Sep 1 07:05:34 2001
+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.
+
+ -------------------------------- 1 -------------------------------------------
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+
+ #
+ # 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;
-diff -Nru Tk800.023/Contrib/testlistbox Tk800.023.new/Contrib/testlistbox
---- Tk800.023/Contrib/testlistbox Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Contrib/testlistbox Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/DragDrop/drag_test Tk800.023.new/DragDrop/drag_test
---- Tk800.023/DragDrop/drag_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/DragDrop/drag_test Sat Sep 1 07:05:34 2001
+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);
-diff -Nru Tk800.023/DragDrop/has_sun Tk800.023.new/DragDrop/has_sun
---- Tk800.023/DragDrop/has_sun Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/DragDrop/has_sun Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/DragDrop/local_test Tk800.023.new/DragDrop/local_test
---- Tk800.023/DragDrop/local_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/DragDrop/local_test Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/DragDrop/motion_test Tk800.023.new/DragDrop/motion_test
---- Tk800.023/DragDrop/motion_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/DragDrop/motion_test Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/DragDrop/selection Tk800.023.new/DragDrop/selection
---- Tk800.023/DragDrop/selection Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/DragDrop/selection Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/DragDrop/site_test Tk800.023.new/DragDrop/site_test
---- Tk800.023/DragDrop/site_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/DragDrop/site_test Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/Extensions/ImageBack/background Tk800.023.new/Extensions/ImageBack/background
---- Tk800.023/Extensions/ImageBack/background Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Extensions/ImageBack/background Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/HList/Tix2perl Tk800.023.new/HList/Tix2perl
---- Tk800.023/HList/Tix2perl Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/HList/Tix2perl Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/TixGrid/tgdemo_config Tk800.023.new/TixGrid/tgdemo_config
---- Tk800.023/TixGrid/tgdemo_config Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/TixGrid/tgdemo_config Sat Sep 1 07:05:34 2001
+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
-diff -Nru Tk800.023/WinPhoto/try Tk800.023.new/WinPhoto/try
---- Tk800.023/WinPhoto/try Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/WinPhoto/try Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/Xlib/drops Tk800.023.new/Xlib/drops
---- Tk800.023/Xlib/drops Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Xlib/drops Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/Xlib/load Tk800.023.new/Xlib/load
---- Tk800.023/Xlib/load Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Xlib/load Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/Xlib/motif_site Tk800.023.new/Xlib/motif_site
---- Tk800.023/Xlib/motif_site Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Xlib/motif_site Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/Xlib/tree_demo Tk800.023.new/Xlib/tree_demo
---- Tk800.023/Xlib/tree_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/Xlib/tree_demo Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/add_version Tk800.023.new/add_version
---- Tk800.023/add_version Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/add_version Sat Sep 1 07:16:21 2001
+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 @@
--#!/tools/local/perl -w
+-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use File::Find;
use Getopt::Std;
-diff -Nru Tk800.023/adj_demo Tk800.023.new/adj_demo
---- Tk800.023/adj_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/adj_demo Sat Sep 1 07:05:34 2001
+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 -w
+#!/usr/bin/perl -w
use Tk;
require Tk::TextUndo;
-diff -Nru Tk800.023/after_demo Tk800.023.new/after_demo
---- Tk800.023/after_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/after_demo Sat Sep 1 07:05:34 2001
+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 Tk;
use strict;
-diff -Nru Tk800.023/after_leak Tk800.023.new/after_leak
---- Tk800.023/after_leak Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/after_leak Sat Sep 1 07:05:34 2001
+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
use Tk;
use Devel::Leak;
-diff -Nru Tk800.023/al_bug Tk800.023.new/al_bug
---- Tk800.023/al_bug Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/al_bug Sat Sep 1 07:16:29 2001
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/nperl -w
-+#!/usr/bin/perl -w
-
- use Tk;
- use Tk::Table;
-diff -Nru Tk800.023/animate Tk800.023.new/animate
---- Tk800.023/animate Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/animate Sat Sep 1 07:05:34 2001
+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;
my $mw = MainWindow->new;
-diff -Nru Tk800.023/autoraise Tk800.023.new/autoraise
---- Tk800.023/autoraise Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/autoraise Sat Sep 1 07:05:34 2001
+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
use Tk;
-diff -Nru Tk800.023/basic_demo Tk800.023.new/basic_demo
---- Tk800.023/basic_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/basic_demo Sat Sep 1 07:05:34 2001
+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
# use Memory (2440);
-diff -Nru Tk800.023/bin/defs Tk800.023.new/bin/defs
---- Tk800.023/bin/defs Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/bin/defs Sat Sep 1 07:05:34 2001
+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
-+#!/usr/bin/perl
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
%def = ();
%need = ();
-diff -Nru Tk800.023/bin/defunc Tk800.023.new/bin/defunc
---- Tk800.023/bin/defunc Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/bin/defunc Sat Sep 1 07:05:34 2001
+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
+#!/usr/bin/perl
while (<>)
{
-diff -Nru Tk800.023/bin/newstyle Tk800.023.new/bin/newstyle
---- Tk800.023/bin/newstyle Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/bin/newstyle Sat Sep 1 07:05:34 2001
+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
+#!/usr/bin/perl
@files = @ARGV;
-diff -Nru Tk800.023/bin/perms Tk800.023.new/bin/perms
---- Tk800.023/bin/perms Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/bin/perms Sat Sep 1 07:05:34 2001
+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 strict;
use File::Find;
-diff -Nru Tk800.023/bin/unres Tk800.023.new/bin/unres
---- Tk800.023/bin/unres Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/bin/unres Sat Sep 1 07:05:34 2001
+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
%done = ();
%defs = ();
-diff -Nru Tk800.023/bin/uselib Tk800.023.new/bin/uselib
---- Tk800.023/bin/uselib Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/bin/uselib Sat Sep 1 07:05:34 2001
+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
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
use File::Find;
-diff -Nru Tk800.023/bindtest Tk800.023.new/bindtest
---- Tk800.023/bindtest Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/bindtest Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/build Tk800.023.new/build
---- Tk800.023/build Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/build Sat Sep 1 07:05:34 2001
+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
use Config;
my $make = $Config{'make'};
my @para;
-diff -Nru Tk800.023/bulkedit Tk800.023.new/bulkedit
---- Tk800.023/bulkedit Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/bulkedit Sat Sep 1 07:05:34 2001
+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 Tk;
use Tk::LabEntry;
-diff -Nru Tk800.023/canvas_ps Tk800.023.new/canvas_ps
---- Tk800.023/canvas_ps Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/canvas_ps Sat Sep 1 07:05:34 2001
+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
use Tk;
-diff -Nru Tk800.023/canvas_scroll Tk800.023.new/canvas_scroll
---- Tk800.023/canvas_scroll Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/canvas_scroll Sat Sep 1 07:05:34 2001
+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 Tk;
-diff -Nru Tk800.023/cbtest Tk800.023.new/cbtest
---- Tk800.023/cbtest Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/cbtest Sat Sep 1 07:05:34 2001
+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
use Tk;
use Tk::Pretty;
-diff -Nru Tk800.023/check_syms Tk800.023.new/check_syms
---- Tk800.023/check_syms Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/check_syms Sat Sep 1 07:05:34 2001
+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 File::Find;
- use Config;
+ use File::Find;
+ use Config;
my @libs;
-diff -Nru Tk800.023/checklen Tk800.023.new/checklen
---- Tk800.023/checklen Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/checklen Sat Sep 1 07:05:34 2001
+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
use ExtUtils::Manifest "/mani/";
-diff -Nru Tk800.023/classtree Tk800.023.new/classtree
---- Tk800.023/classtree Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/classtree Sat Sep 1 07:05:34 2001
+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
use strict;
- use Tk;
+ use Tk;
use Tk::widgets qw(Tree Menubar);
-diff -Nru Tk800.023/cleanup Tk800.023.new/cleanup
---- Tk800.023/cleanup Wed Feb 21 19:27:16 2001
-+++ Tk800.023.new/cleanup Sat Sep 1 07:05:34 2001
+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,'.');
-diff -Nru Tk800.023/clip_bug Tk800.023.new/clip_bug
---- Tk800.023/clip_bug Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/clip_bug Sat Sep 1 07:05:34 2001
+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
# Show a Tk canvas bug:
# when scrolling a canvas, clipping for embedded windows
# uses the embedded windows parent, not the canvas.
-diff -Nru Tk800.023/compile/findloader Tk800.023.new/compile/findloader
---- Tk800.023/compile/findloader Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/compile/findloader Sat Sep 1 07:05:34 2001
+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 Config;
+ use Config;
my $sfx = $Config{'lib_ext'};
foreach my $dir (@INC)
-diff -Nru Tk800.023/compile/splitfunc Tk800.023.new/compile/splitfunc
---- Tk800.023/compile/splitfunc Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/compile/splitfunc Sat Sep 1 07:05:34 2001
+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 IO::File;
while (<>)
-diff -Nru Tk800.023/cursor_demo Tk800.023.new/cursor_demo
---- Tk800.023/cursor_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/cursor_demo Sat Sep 1 07:05:34 2001
+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
++#!/usr/bin/perl
+
+ 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;
my $mw = MainWindow->new;
-diff -Nru Tk800.023/demos/browse Tk800.023.new/demos/browse
---- Tk800.023/demos/browse Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/demos/browse Sat Sep 1 07:05:34 2001
+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
#
# This script generates a directory browser, which lists the working directory and allows you to open files or subdirectories
# by double-clicking.
-diff -Nru Tk800.023/demos/color_editor Tk800.023.new/demos/color_editor
---- Tk800.023/demos/color_editor Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/demos/color_editor Sat Sep 1 07:05:34 2001
+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
#
# ColorEditor demonstration.
-diff -Nru Tk800.023/demos/composite Tk800.023.new/demos/composite
---- Tk800.023/demos/composite Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/demos/composite Sat Sep 1 07:05:34 2001
+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 English;
-diff -Nru Tk800.023/demos/dialog Tk800.023.new/demos/dialog
---- Tk800.023/demos/dialog Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/demos/dialog Sat Sep 1 07:05:34 2001
+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.
+
+-#!/usr/local/bin/perl -w
++#!/usr/bin/perl -w
+ #
+ # 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
+ #
+ # 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
# Demonstrate how to use Dialog to create and manipulate dialog objects.
# lusol@Lehigh.EDU 95/06/14
-diff -Nru Tk800.023/demos/hello Tk800.023.new/demos/hello
---- Tk800.023/demos/hello Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/demos/hello Sat Sep 1 07:05:34 2001
+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
#
- # Simple Tk script to create a button that prints "Hello, world". Click on
+ # Simple Tk script to create a button that prints "Hello, world". Click on
# the button to terminate the program.
-diff -Nru Tk800.023/demos/ixset Tk800.023.new/demos/ixset
---- Tk800.023/demos/ixset Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/demos/ixset Sat Sep 1 07:05:34 2001
+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
# A nice interface to "xset" to change X server settings
#
-diff -Nru Tk800.023/demos/rmt Tk800.023.new/demos/rmt
---- Tk800.023/demos/rmt Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/demos/rmt Sat Sep 1 07:05:34 2001
+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 -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 Tk800.023/demos/rolodex Tk800.023.new/demos/rolodex
---- Tk800.023/demos/rolodex Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/demos/rolodex Sat Sep 1 07:05:34 2001
+ # 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
#
- # This script was written as an entry in Tom LaStrange's rolodex benchmark.
+ # 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 Tk800.023/demos/timer Tk800.023.new/demos/timer
---- Tk800.023/demos/timer Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/demos/timer Sat Sep 1 07:05:34 2001
+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
#
- # This script generates a counter with start and stop buttons. Exit with
+ # This script generates a counter with start and stop buttons. Exit with
# Ctrl/c or Ctrl/q.
-diff -Nru Tk800.023/demos/tom Tk800.023.new/demos/tom
---- Tk800.023/demos/tom Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/demos/tom Sat Sep 1 07:05:34 2001
+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
#
# Sample program to get Tom Christiansen going with Perl/Tk.
-diff -Nru Tk800.023/demos/widget Tk800.023.new/demos/widget
---- Tk800.023/demos/widget Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/demos/widget Sat Sep 1 07:05:34 2001
+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
- require 5.004;
-
-diff -Nru Tk800.023/demos/widget_old Tk800.023.new/demos/widget_old
---- Tk800.023/demos/widget_old Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/demos/widget_old Sat Sep 1 07:05:34 2001
+ 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
#
# 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 Tk800.023/derived_test Tk800.023.new/derived_test
---- Tk800.023/derived_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/derived_test Sat Sep 1 07:05:34 2001
+ # 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;
-diff -Nru Tk800.023/destroy_test Tk800.023.new/destroy_test
---- Tk800.023/destroy_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/destroy_test Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/dfpy Tk800.023.new/dfpy
---- Tk800.023/dfpy Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/dfpy Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/disbutton Tk800.023.new/disbutton
---- Tk800.023/disbutton Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/disbutton Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/dnd_demo Tk800.023.new/dnd_demo
---- Tk800.023/dnd_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/dnd_demo Sat Sep 1 07:05:34 2001
+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
-diff -Nru Tk800.023/dump_test Tk800.023.new/dump_test
---- Tk800.023/dump_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/dump_test Sat Sep 1 07:05:34 2001
+ # 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'));
-diff -Nru Tk800.023/embed Tk800.023.new/embed
---- Tk800.023/embed Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/embed Sat Sep 1 07:05:34 2001
+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
+-#!/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
use Tk;
use IO::File;
-diff -Nru Tk800.023/error_prop Tk800.023.new/error_prop
---- Tk800.023/error_prop Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/error_prop Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/ewidth_demo Tk800.023.new/ewidth_demo
---- Tk800.023/ewidth_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/ewidth_demo Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/exetype Tk800.023.new/exetype
---- Tk800.023/exetype Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/exetype Sat Sep 1 07:16:19 2001
-@@ -1,4 +1,4 @@
--#!perl -w
-+#!/usr/bin/perl -w
- use strict;
- unless (@ARGV == 2) {
- print "Usage: $0 exefile [CONSOLE|WINDOWS]\n";
-diff -Nru Tk800.023/fedemo Tk800.023.new/fedemo
---- Tk800.023/fedemo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/fedemo Sat Sep 1 07:16:28 2001
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/new/perl -w
-+#!/usr/bin/perl -w
- use strict;
- my $FILE_LOG = (@ARGV) ? shift : 'README';
-
-diff -Nru Tk800.023/fetail Tk800.023.new/fetail
---- Tk800.023/fetail Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/fetail Sat Sep 1 07:16:18 2001
+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 Tk800.023/findbase Tk800.023.new/findbase
---- Tk800.023/findbase Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/findbase Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/floppy Tk800.023.new/floppy
---- Tk800.023/floppy Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/floppy Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/font_demo Tk800.023.new/font_demo
---- Tk800.023/font_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/font_demo Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/font_test Tk800.023.new/font_test
---- Tk800.023/font_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/font_test Sat Sep 1 07:05:34 2001
+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
-diff -Nru Tk800.023/fonts Tk800.023.new/fonts
---- Tk800.023/fonts Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/fonts Sat Sep 1 07:05:34 2001
+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 Data::Dumper;
-diff -Nru Tk800.023/forward_test Tk800.023.new/forward_test
---- Tk800.023/forward_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/forward_test Sat Sep 1 07:16:27 2001
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/nperl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
-
-diff -Nru Tk800.023/gdb.plx Tk800.023.new/gdb.plx
---- Tk800.023/gdb.plx Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/gdb.plx Sat Sep 1 07:05:34 2001
+ use Data::Dumper;
+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;
-diff -Nru Tk800.023/gedi Tk800.023.new/gedi
---- Tk800.023/gedi Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/gedi Sat Sep 1 07:16:16 2001
+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
###############################################################################
# Copyright (c) 1999 Greg London
-diff -Nru Tk800.023/geo_mgr Tk800.023.new/geo_mgr
---- Tk800.023/geo_mgr Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/geo_mgr Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/geom Tk800.023.new/geom
---- Tk800.023/geom Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/geom Sat Sep 1 07:05:34 2001
+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 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
-diff -Nru Tk800.023/grid_adj Tk800.023.new/grid_adj
---- Tk800.023/grid_adj Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/grid_adj Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/grid_test Tk800.023.new/grid_test
---- Tk800.023/grid_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/grid_test Sat Sep 1 07:05:34 2001
+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__);
-diff -Nru Tk800.023/gridbug Tk800.023.new/gridbug
---- Tk800.023/gridbug Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/gridbug Sat Sep 1 07:05:34 2001
+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();
-diff -Nru Tk800.023/hackMM Tk800.023.new/hackMM
---- Tk800.023/hackMM Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/hackMM Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/hlfm Tk800.023.new/hlfm
---- Tk800.023/hlfm Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/hlfm Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/hlist_bg Tk800.023.new/hlist_bg
---- Tk800.023/hlist_bg Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/hlist_bg Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/hlist_demo Tk800.023.new/hlist_demo
---- Tk800.023/hlist_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/hlist_demo Sat Sep 1 07:16:26 2001
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/nperl -w
-+#!/usr/bin/perl -w
-
- use lib qw(blib .);
- use Tk;
-diff -Nru Tk800.023/icon Tk800.023.new/icon
---- Tk800.023/icon Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/icon Sat Sep 1 07:16:13 2001
-@@ -1,4 +1,4 @@
--#!/tools/local/perl -w
-+#!/usr/bin/perl -w
- use Tk;
- my $mw = MainWindow->new;
- my $image = $mw->Photo('-file' => Tk->findINC("icon.gif"));
-diff -Nru Tk800.023/iconimg Tk800.023.new/iconimg
---- Tk800.023/iconimg Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/iconimg Sat Sep 1 07:16:25 2001
+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 Tk800.023/iconwin Tk800.023.new/iconwin
---- Tk800.023/iconwin Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/iconwin Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/image_test Tk800.023.new/image_test
---- Tk800.023/image_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/image_test Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/inline_bitmap Tk800.023.new/inline_bitmap
---- Tk800.023/inline_bitmap Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/inline_bitmap Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/keyWords Tk800.023.new/keyWords
---- Tk800.023/keyWords Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/keyWords Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/labelpack Tk800.023.new/labelpack
---- Tk800.023/labelpack Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/labelpack Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/lbformat_demo Tk800.023.new/lbformat_demo
---- Tk800.023/lbformat_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/lbformat_demo Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/leak_test Tk800.023.new/leak_test
---- Tk800.023/leak_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/leak_test Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/lentry Tk800.023.new/lentry
---- Tk800.023/lentry Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/lentry Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/linux-progbar-toy Tk800.023.new/linux-progbar-toy
---- Tk800.023/linux-progbar-toy Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/linux-progbar-toy Sat Sep 1 07:16:00 2001
+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 Tk800.023/local_demo Tk800.023.new/local_demo
---- Tk800.023/local_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/local_demo Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/ls_table Tk800.023.new/ls_table
---- Tk800.023/ls_table Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/ls_table Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/lsfonts Tk800.023.new/lsfonts
---- Tk800.023/lsfonts Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/lsfonts Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/menubar Tk800.023.new/menubar
---- Tk800.023/menubar Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/menubar Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/menubug Tk800.023.new/menubug
---- Tk800.023/menubug Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/menubug Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/mitem_test Tk800.023.new/mitem_test
---- Tk800.023/mitem_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/mitem_test Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/mkExt Tk800.023.new/mkExt
---- Tk800.023/mkExt Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/mkExt Sat Sep 1 07:05:34 2001
+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
{
-diff -Nru Tk800.023/mkdist Tk800.023.new/mkdist
---- Tk800.023/mkdist Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/mkdist Sat Sep 1 07:05:34 2001
+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/";
-diff -Nru Tk800.023/motif_hack Tk800.023.new/motif_hack
---- Tk800.023/motif_hack Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/motif_hack Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/nested_dialog Tk800.023.new/nested_dialog
---- Tk800.023/nested_dialog Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/nested_dialog Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/oddmenu_demo Tk800.023.new/oddmenu_demo
---- Tk800.023/oddmenu_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/oddmenu_demo Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/pTk/LangIO.h.PL Tk800.023.new/pTk/LangIO.h.PL
---- Tk800.023/pTk/LangIO.h.PL Sun Feb 4 20:16:51 2001
-+++ Tk800.023.new/pTk/LangIO.h.PL Sat Sep 1 07:05:34 2001
+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 Config;
- my @gard = qw(
- STDIO_H
-diff -Nru Tk800.023/pTk/Tcl-pTk Tk800.023.new/pTk/Tcl-pTk
---- Tk800.023/pTk/Tcl-pTk Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/Tcl-pTk Sat Sep 1 07:05:34 2001
-@@ -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;
-
-diff -Nru Tk800.023/pTk/chext Tk800.023.new/pTk/chext
---- Tk800.023/pTk/chext Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/chext Sat Sep 1 07:05:34 2001
+ 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
open(NEED,"<need") || die;
while (<NEED>)
-diff -Nru Tk800.023/pTk/counts Tk800.023.new/pTk/counts
---- Tk800.023/pTk/counts Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/counts Sat Sep 1 07:05:34 2001
+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 Tk800.023/pTk/findX Tk800.023.new/pTk/findX
---- Tk800.023/pTk/findX Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/findX Sat Sep 1 07:05:34 2001
+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 Tk800.023/pTk/findcore Tk800.023.new/pTk/findcore
---- Tk800.023/pTk/findcore Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/findcore Sat Sep 1 07:05:34 2001
+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 Tk800.023/pTk/findstrings Tk800.023.new/pTk/findstrings
---- Tk800.023/pTk/findstrings Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/findstrings Sat Sep 1 07:05:34 2001
+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 Tk800.023/pTk/from Tk800.023.new/pTk/from
---- Tk800.023/pTk/from Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/from Sat Sep 1 07:05:34 2001
+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 File::Find;
-diff -Nru Tk800.023/pTk/genexc Tk800.023.new/pTk/genexc
---- Tk800.023/pTk/genexc Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/genexc Sat Sep 1 07:05:34 2001
+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 Tk800.023/pTk/mTk/tclmerge Tk800.023.new/pTk/mTk/tclmerge
---- Tk800.023/pTk/mTk/tclmerge Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/mTk/tclmerge Sat Sep 1 07:05:34 2001
+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 Tk800.023/pTk/mTk/tixmerge Tk800.023.new/pTk/mTk/tixmerge
---- Tk800.023/pTk/mTk/tixmerge Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/mTk/tixmerge Sat Sep 1 07:05:34 2001
+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 Tk800.023/pTk/makeenglish Tk800.023.new/pTk/makeenglish
---- Tk800.023/pTk/makeenglish Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/makeenglish Sat Sep 1 07:05:34 2001
+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 Tk800.023/pTk/mkVFunc Tk800.023.new/pTk/mkVFunc
---- Tk800.023/pTk/mkVFunc Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/mkVFunc Sat Sep 1 07:05:34 2001
+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;
+ use strict;
+
- my %Ignore;
-diff -Nru Tk800.023/pTk/mkXinfo Tk800.023.new/pTk/mkXinfo
---- Tk800.023/pTk/mkXinfo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/mkXinfo Sat Sep 1 07:05:34 2001
+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 Tk800.023/pTk/mkexc Tk800.023.new/pTk/mkexc
---- Tk800.023/pTk/mkexc Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/mkexc Sat Sep 1 07:05:34 2001
+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 Tk800.023/pTk/mkmethods Tk800.023.new/pTk/mkmethods
---- Tk800.023/pTk/mkmethods Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/mkmethods Sat Sep 1 07:05:34 2001
+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 Tk800.023/pTk/tdiff Tk800.023.new/pTk/tdiff
---- Tk800.023/pTk/tdiff Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/tdiff Sat Sep 1 07:05:34 2001
+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 Tk800.023/pTk/why Tk800.023.new/pTk/why
---- Tk800.023/pTk/why Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pTk/why Sat Sep 1 07:05:34 2001
+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;
+ use strict;
-diff -Nru Tk800.023/pfm Tk800.023.new/pfm
---- Tk800.023/pfm Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pfm Sat Sep 1 07:05:34 2001
+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 Tk800.023/pictgrid Tk800.023.new/pictgrid
---- Tk800.023/pictgrid Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pictgrid Sat Sep 1 07:05:34 2001
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
-+#!/usr/bin/perl -w
- use strict;
- use Tk;
-
-diff -Nru Tk800.023/pipe_test Tk800.023.new/pipe_test
---- Tk800.023/pipe_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pipe_test Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/pixels-points Tk800.023.new/pixels-points
---- Tk800.023/pixels-points Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pixels-points Sat Sep 1 07:16:24 2001
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/new/perl -w
-+#!/usr/bin/perl -w
- use strict;
- use Tk;
- use Tk::Xlib;
-diff -Nru Tk800.023/pixmap_test Tk800.023.new/pixmap_test
---- Tk800.023/pixmap_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pixmap_test Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/pod/extract/extpod Tk800.023.new/pod/extract/extpod
---- Tk800.023/pod/extract/extpod Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pod/extract/extpod Sat Sep 1 07:05:34 2001
+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 strict;
use Getopt::Std;
use ExtUtils::Manifest "/mani/";
-diff -Nru Tk800.023/pod/recat Tk800.023.new/pod/recat
---- Tk800.023/pod/recat Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pod/recat Sat Sep 1 07:05:34 2001
+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 Tk800.023/pod/subs Tk800.023.new/pod/subs
---- Tk800.023/pod/subs Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/pod/subs Sat Sep 1 07:05:34 2001
+ 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 Tk;
use strict;
-diff -Nru Tk800.023/point_test Tk800.023.new/point_test
---- Tk800.023/point_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/point_test Sat Sep 1 07:15:55 2001
+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 Tk800.023/popup Tk800.023.new/popup
---- Tk800.023/popup Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/popup Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/popup_menu Tk800.023.new/popup_menu
---- Tk800.023/popup_menu Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/popup_menu Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/prop_demo Tk800.023.new/prop_demo
---- Tk800.023/prop_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/prop_demo Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/ptked Tk800.023.new/ptked
---- Tk800.023/ptked Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/ptked Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/ptknews Tk800.023.new/ptknews
---- Tk800.023/ptknews Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/ptknews Sat Sep 1 07:05:34 2001
+ 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;
-diff -Nru Tk800.023/ptksh Tk800.023.new/ptksh
---- Tk800.023/ptksh Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/ptksh Sat Sep 1 07:16:23 2001
-@@ -1,4 +1,4 @@
--#!perl -w
-+#!/usr/bin/perl -w
- #
- # PTKSH 2.0
- #
-diff -Nru Tk800.023/rebuild Tk800.023.new/rebuild
---- Tk800.023/rebuild Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/rebuild Sat Sep 1 07:15:54 2001
-@@ -1,4 +1,4 @@
--#!/usr/local/bin/new/perl -w
-+#!/usr/bin/perl -w
- open(STDERR,">&STDOUT") || die "Cannot redirect STDERR";
- $| = 1;
- use Cwd;
-diff -Nru Tk800.023/scale_test Tk800.023.new/scale_test
---- Tk800.023/scale_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/scale_test Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/scrolled_demo Tk800.023.new/scrolled_demo
---- Tk800.023/scrolled_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/scrolled_demo Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/sillymenu Tk800.023.new/sillymenu
---- Tk800.023/sillymenu Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/sillymenu Sat Sep 1 07:05:34 2001
+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;
-
-diff -Nru Tk800.023/sockets Tk800.023.new/sockets
---- Tk800.023/sockets Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/sockets Sat Sep 1 07:05:34 2001
+ 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;
-diff -Nru Tk800.023/stripblib Tk800.023.new/stripblib
---- Tk800.023/stripblib Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/stripblib Sat Sep 1 07:05:34 2001
+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');
-diff -Nru Tk800.023/style_test Tk800.023.new/style_test
---- Tk800.023/style_test Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/style_test Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/submethods Tk800.023.new/submethods
---- Tk800.023/submethods Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/submethods Sat Sep 1 07:05:34 2001
+ 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 = ();
-diff -Nru Tk800.023/symbols Tk800.023.new/symbols
---- Tk800.023/symbols Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/symbols Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/table_demo Tk800.023.new/table_demo
---- Tk800.023/table_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/table_demo Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/tainted Tk800.023.new/tainted
---- Tk800.023/tainted Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/tainted Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/tcl2perl Tk800.023.new/tcl2perl
---- Tk800.023/tcl2perl Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/tcl2perl Sat Sep 1 07:05:34 2001
+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
-diff -Nru Tk800.023/tcolour Tk800.023.new/tcolour
---- Tk800.023/tcolour Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/tcolour Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/text_demo Tk800.023.new/text_demo
---- Tk800.023/text_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/text_demo Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/tie_basic Tk800.023.new/tie_basic
---- Tk800.023/tie_basic Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/tie_basic Sat Sep 1 07:05:34 2001
+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);
-diff -Nru Tk800.023/tiehandle Tk800.023.new/tiehandle
---- Tk800.023/tiehandle Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/tiehandle Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/tietext Tk800.023.new/tietext
---- Tk800.023/tietext Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/tietext Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/time Tk800.023.new/time
---- Tk800.023/time Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/time Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/tiny Tk800.023.new/tiny
---- Tk800.023/tiny Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/tiny Sat Sep 1 07:05:34 2001
+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);
-diff -Nru Tk800.023/tixwm_demo Tk800.023.new/tixwm_demo
---- Tk800.023/tixwm_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/tixwm_demo Sat Sep 1 07:05:34 2001
+ 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;
-diff -Nru Tk800.023/tkperldoc Tk800.023.new/tkperldoc
---- Tk800.023/tkperldoc Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/tkperldoc Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/tkpsh Tk800.023.new/tkpsh
---- Tk800.023/tkpsh Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/tkpsh Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/tktail Tk800.023.new/tktail
---- Tk800.023/tktail Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/tktail Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/two_main Tk800.023.new/two_main
---- Tk800.023/two_main Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/two_main Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/uninstall Tk800.023.new/uninstall
---- Tk800.023/uninstall Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/uninstall Sat Sep 1 07:05:34 2001
+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;
-diff -Nru Tk800.023/ventry_demo Tk800.023.new/ventry_demo
---- Tk800.023/ventry_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/ventry_demo Sat Sep 1 07:16:22 2001
+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 Tk800.023/xlib_demo Tk800.023.new/xlib_demo
---- Tk800.023/xlib_demo Sat Dec 30 17:12:37 2000
-+++ Tk800.023.new/xlib_demo Sat Sep 1 07:05:34 2001
+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