---- Tk800.014.paths/Contrib/TickerTape Sat Mar 21 18:57:22 1998
-+++ Tk800.014/Contrib/TickerTape Mon Nov 8 18:42:17 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
=head1 NAME
---- Tk800.014.paths/Contrib/book-examples/f-15.5.pl Mon Dec 29 13:11:12 1997
-+++ Tk800.014/Contrib/book-examples/f-15.5.pl Mon Nov 8 18:42:17 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
#
# Figure 15.5, p153
---- Tk800.014.paths/Contrib/book-examples/f-16.1.pl Mon Dec 29 13:11:12 1997
-+++ Tk800.014/Contrib/book-examples/f-16.1.pl Mon Nov 8 18:42:17 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
#
# Figure 16.1, p159
---- Tk800.014.paths/Contrib/book-examples/f-16.10.pl Mon Dec 29 13:11:12 1997
-+++ Tk800.014/Contrib/book-examples/f-16.10.pl Mon Nov 8 18:42:17 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
#
# Figure 16.8, p166
---- Tk800.014.paths/Contrib/book-examples/f-16.2.pl Mon Dec 29 13:11:12 1997
-+++ Tk800.014/Contrib/book-examples/f-16.2.pl Mon Nov 8 18:42:17 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
#
# Figure 16.2, p161
---- Tk800.014.paths/Contrib/book-examples/f-16.3.pl Mon Dec 29 13:11:12 1997
-+++ Tk800.014/Contrib/book-examples/f-16.3.pl Mon Nov 8 18:42:17 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
#
# Figure 16.3, p162
---- Tk800.014.paths/Contrib/book-examples/f-16.6.pl Mon Dec 29 13:11:12 1997
-+++ Tk800.014/Contrib/book-examples/f-16.6.pl Mon Nov 8 18:42:17 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
#
# Figure 16.6, p165
---- Tk800.014.paths/Contrib/book-examples/f-16.7.pl Mon Dec 29 13:11:12 1997
-+++ Tk800.014/Contrib/book-examples/f-16.7.pl Mon Nov 8 18:42:17 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
#
# Figure 16.7, p166
---- Tk800.014.paths/Contrib/book-examples/f-16.8.pl Mon Dec 29 13:11:12 1997
-+++ Tk800.014/Contrib/book-examples/f-16.8.pl Mon Nov 8 18:42:17 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
#
# Figure 16.8, p166
---- Tk800.014.paths/Contrib/book-examples/f-16.9.pl Mon Dec 29 13:11:12 1997
-+++ Tk800.014/Contrib/book-examples/f-16.9.pl Mon Nov 8 18:42:17 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
#
# Figure 16.8, p166
---- Tk800.014.paths/Contrib/fd_demo Mon Dec 29 13:11:12 1997
-+++ Tk800.014/Contrib/fd_demo Mon Nov 8 18:42:17 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
require Tk::FileDialog;
---- Tk800.014.paths/Contrib/testlistbox Mon Dec 29 13:11:12 1997
-+++ Tk800.014/Contrib/testlistbox Mon Nov 8 18:42:17 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
use Tk;
use Tk::TiedListbox;
---- Tk800.014.paths/DragDrop/drag_test Tue Jun 2 20:28:30 1998
-+++ Tk800.014/DragDrop/drag_test Mon Nov 8 18:42:18 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use strict;
use Tk::DragDrop qw(Sun);
---- Tk800.014.paths/DragDrop/has_sun Mon Dec 29 13:11:13 1997
-+++ Tk800.014/DragDrop/has_sun Mon Nov 8 18:42:18 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
my $mw = MainWindow->new;
---- Tk800.014.paths/DragDrop/local_test Mon Dec 29 13:11:13 1997
-+++ Tk800.014/DragDrop/local_test Mon Nov 8 18:42:18 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use strict;
use Tk::DragDrop;
---- Tk800.014.paths/DragDrop/motion_test Mon Dec 29 13:11:13 1997
-+++ Tk800.014/DragDrop/motion_test Mon Nov 8 18:42:18 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use strict;
use Tk::DragDrop;
---- Tk800.014.paths/DragDrop/selection Sat Feb 28 23:15:26 1998
-+++ Tk800.014/DragDrop/selection Mon Nov 8 18:42:18 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use strict;
---- Tk800.014.paths/DragDrop/site_test Mon Sep 28 19:40:26 1998
-+++ Tk800.014/DragDrop/site_test Mon Nov 8 18:42:18 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use strict;
use Tk::DropSite;
---- Tk800.014.paths/Extensions/ImageBack/background Fri Feb 13 18:38:47 1998
-+++ Tk800.014/Extensions/ImageBack/background Mon Nov 8 18:42:18 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use Tk::ImageBack;
use Tk::Photo;
---- Tk800.014.paths/HList/Tix2perl Mon Dec 29 13:11:13 1997
-+++ Tk800.014/HList/Tix2perl Mon Nov 8 18:42:18 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk::Pretty;
---- Tk800.014.paths/TixGrid/tgdemo_config Tue Jun 30 19:49:16 1998
-+++ Tk800.014/TixGrid/tgdemo_config Mon Nov 8 18:42:18 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
# tixgrid demo
# standalone or sourceable in ptksh
---- Tk800.014.paths/WinPhoto/try Sat Nov 7 19:00:47 1998
-+++ Tk800.014/WinPhoto/try Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use Tk::WinPhoto;
use Cwd;
---- Tk800.014.paths/Xlib/drops Sat Jul 11 12:30:29 1998
-+++ Tk800.014/Xlib/drops Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
use Tk;
---- Tk800.014.paths/Xlib/load Mon Dec 29 13:11:23 1997
-+++ Tk800.014/Xlib/load Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::Xlib;
---- Tk800.014.paths/Xlib/motif_site Mon Dec 29 13:11:23 1997
-+++ Tk800.014/Xlib/motif_site Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use Tk::Xlib;
use Data::Dumper;
---- Tk800.014.paths/Xlib/tree_demo Mon Dec 29 13:11:23 1997
-+++ Tk800.014/Xlib/tree_demo Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use Tk::Xlib;
use Tk::HList;
---- Tk800.014.paths/add_version Sat Jul 11 12:32:47 1998
-+++ Tk800.014/add_version Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl -w
+-#!/tools/local/perl -w
+#!/usr/bin/perl -w
use strict;
use File::Find;
use Getopt::Std;
---- Tk800.014.paths/adj_demo Sat Feb 28 23:16:15 1998
-+++ Tk800.014/adj_demo Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
require Tk::TextUndo;
---- Tk800.014.paths/after_demo Fri Feb 6 19:37:49 1998
-+++ Tk800.014/after_demo Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use strict;
---- Tk800.014.paths/after_leak Fri Feb 13 18:38:49 1998
-+++ Tk800.014/after_leak Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
- use English;
---- Tk800.014.paths/animate Sun Feb 15 13:50:02 1998
-+++ Tk800.014/animate Mon Nov 8 18:42:20 1999
+ 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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
my $mw = MainWindow->new;
---- Tk800.014.paths/autoraise Mon Dec 29 13:11:24 1997
-+++ Tk800.014/autoraise Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/basic_demo Fri Nov 13 19:26:10 1998
-+++ Tk800.014/basic_demo Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl
-+#!/usr/bin/perl
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
# use Memory (2440);
---- Tk800.014.paths/bin/defs Mon Dec 29 13:11:24 1997
-+++ Tk800.014/bin/defs Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
%def = ();
%need = ();
---- Tk800.014.paths/bin/defunc Mon Dec 29 13:11:24 1997
-+++ Tk800.014/bin/defunc Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
while (<>)
{
---- Tk800.014.paths/bin/newstyle Mon Dec 29 13:11:24 1997
-+++ Tk800.014/bin/newstyle Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
@files = @ARGV;
---- Tk800.014.paths/bin/perms Mon Dec 29 13:11:24 1997
-+++ Tk800.014/bin/perms Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use File::Find;
---- Tk800.014.paths/bin/unres Mon Dec 29 13:11:24 1997
-+++ Tk800.014/bin/unres Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
%done = ();
%defs = ();
---- Tk800.014.paths/bin/uselib Mon Dec 29 13:11:24 1997
-+++ Tk800.014/bin/uselib Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
use File::Find;
---- Tk800.014.paths/bindtest Mon Dec 29 13:11:24 1997
-+++ Tk800.014/bindtest Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use Tk::Menubar;
---- Tk800.014.paths/build Fri Jan 22 18:44:50 1999
-+++ Tk800.014/build Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Config;
my $make = $Config{'make'};
my @para;
---- Tk800.014.paths/bulkedit Sat Jul 11 12:32:48 1998
-+++ Tk800.014/bulkedit Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::LabEntry;
---- Tk800.014.paths/canvas_ps Mon Dec 29 13:11:24 1997
-+++ Tk800.014/canvas_ps Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/canvas_scroll Sun Feb 8 10:18:10 1998
-+++ Tk800.014/canvas_scroll Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/cbtest Mon Dec 29 13:11:24 1997
-+++ Tk800.014/cbtest Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
use Tk;
use Tk::Pretty;
---- Tk800.014.paths/check_syms Mon Apr 5 13:10:07 1999
-+++ Tk800.014/check_syms Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use File::Find;
use Config;
my @libs;
---- Tk800.014.paths/checklen Mon Dec 29 13:11:24 1997
-+++ Tk800.014/checklen Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use ExtUtils::Manifest "/mani/";
---- Tk800.014.paths/classtree Thu Aug 6 20:28:57 1998
-+++ Tk800.014/classtree Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::widgets qw(Tree Menubar);
---- Tk800.014.paths/cleanup Sat May 9 14:51:37 1998
-+++ Tk800.014/cleanup Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use File::Find;
find(\&wanted,'.');
---- Tk800.014.paths/clip_bug Mon Dec 29 13:11:24 1997
-+++ Tk800.014/clip_bug Mon Nov 8 18:42:20 1999
+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
@@ -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.014.paths/compile/findloader Fri Mar 12 18:43:06 1999
-+++ Tk800.014/compile/findloader Mon Nov 8 18:42:20 1999
+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
@@ -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.014.paths/compile/splitfunc Sat Nov 21 23:02:28 1998
-+++ Tk800.014/compile/splitfunc Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use IO::File;
while (<>)
---- Tk800.014.paths/copydate Sat Nov 14 11:45:34 1998
-+++ Tk800.014/copydate Mon Nov 8 18:42:20 1999
+diff -Nru Tk800.023/copydate Tk800.023.new/copydate
+--- Tk800.023/copydate Sat Dec 30 17:12:37 2000
++++ Tk800.023.new/copydate Sat Sep 1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
use File::Find;
use Time::Local;
---- Tk800.014.paths/cursor_demo Sat Feb 28 23:16:58 1998
-+++ Tk800.014/cursor_demo Mon Nov 8 18:42:20 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
my $mw = MainWindow->new;
---- Tk800.014.paths/demos/browse Fri Feb 6 14:44:57 1998
-+++ Tk800.014/demos/browse Mon Nov 8 18:42:21 1999
+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
@@ -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.014.paths/demos/color_editor Fri Feb 6 14:44:59 1998
-+++ Tk800.014/demos/color_editor Mon Nov 8 18:42:21 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
#
# ColorEditor demonstration.
---- Tk800.014.paths/demos/composite Fri Feb 6 14:45:00 1998
-+++ Tk800.014/demos/composite Mon Nov 8 18:42:21 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use English;
---- Tk800.014.paths/demos/dialog Mon Dec 29 13:11:27 1997
-+++ Tk800.014/demos/dialog Mon Nov 8 18:42:22 1999
+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
@@ -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.014.paths/demos/hello Mon Dec 29 13:11:27 1997
-+++ Tk800.014/demos/hello Mon Nov 8 18:42:22 1999
+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
@@ -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.014.paths/demos/ixset Fri Feb 6 14:45:45 1998
-+++ Tk800.014/demos/ixset Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# A nice interface to "xset" to change X server settings
#
---- Tk800.014.paths/demos/rmt Fri Mar 19 10:41:04 1999
-+++ Tk800.014/demos/rmt Mon Nov 8 18:42:22 1999
+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
@@ -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.014.paths/demos/rolodex Fri Feb 6 14:45:47 1998
-+++ Tk800.014/demos/rolodex Mon Nov 8 18:42:22 1999
+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
@@ -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.014.paths/demos/timer Mon Dec 29 13:11:27 1997
-+++ Tk800.014/demos/timer Mon Nov 8 18:42:22 1999
+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
@@ -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.014.paths/demos/tom Mon Dec 29 13:11:27 1997
-+++ Tk800.014/demos/tom Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
#
# Sample program to get Tom Christiansen going with Perl/Tk.
---- Tk800.014.paths/demos/widget Sat Sep 5 18:40:22 1998
-+++ Tk800.014/demos/widget Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
- eval 'exec /usr/local/bin/perl -w -S $0 ${1+"$@"}'
- if 0; # not running under some shell
---- Tk800.014.paths/demos/widget_old Fri Feb 6 14:45:48 1998
-+++ Tk800.014/demos/widget_old Mon Nov 8 18:42:22 1999
+ 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
@@ -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.014.paths/derived_test Sat Jul 11 12:30:29 1998
-+++ Tk800.014/derived_test Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
require Tk::Text;
---- Tk800.014.paths/destroy_test Mon Dec 29 13:11:27 1997
-+++ Tk800.014/destroy_test Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/dfpy Mon Dec 29 13:11:27 1997
-+++ Tk800.014/dfpy Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
use ExtUtils::Manifest "/mani/";
use Cwd;
---- Tk800.014.paths/disbutton Sat Jul 11 12:30:29 1998
-+++ Tk800.014/disbutton Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
package StickyButton;
require Tk::Widget;
---- Tk800.014.paths/dnd_demo Thu May 14 23:01:40 1998
-+++ Tk800.014/dnd_demo Mon Nov 8 18:42:22 1999
+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
@@ -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.014.paths/dump_test Sat May 16 20:58:54 1998
-+++ Tk800.014/dump_test Mon Nov 8 18:42:22 1999
+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
@@ -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.014.paths/embed Sat Feb 28 19:27:37 1998
-+++ Tk800.014/embed Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use IO::File;
---- Tk800.014.paths/error_prop Mon Dec 29 13:11:30 1997
-+++ Tk800.014/error_prop Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use Tk::ErrorDialog;
---- Tk800.014.paths/ewidth_demo Mon Dec 29 13:11:31 1997
-+++ Tk800.014/ewidth_demo Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use strict;
---- Tk800.014.paths/findbase Mon Dec 29 13:11:31 1997
-+++ Tk800.014/findbase Mon Nov 8 18:42:22 1999
+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
+@@ -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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use File::Find;
---- Tk800.014.paths/floppy Mon Dec 29 13:11:31 1997
-+++ Tk800.014/floppy Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
use ExtUtils::Manifest "/mani/";
use Cwd;
---- Tk800.014.paths/font_demo Mon Dec 29 13:11:31 1997
-+++ Tk800.014/font_demo Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
- use Tk::Font;
+ use Tk::X11Font;
use Tk::ROText;
---- Tk800.014.paths/font_test Mon Dec 29 13:11:31 1997
-+++ Tk800.014/font_test Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
---- Tk800.014.paths/fonts Thu Nov 5 23:32:12 1998
-+++ Tk800.014/fonts Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
use Data::Dumper;
---- Tk800.014.paths/gdb.plx Sat Jun 20 12:25:13 1998
-+++ Tk800.014/gdb.plx Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Config;
open(INIT,">.gdbinit") || die;
my $perl = $^X;
---- Tk800.014.paths/geo_mgr Sat Jul 11 12:30:29 1998
-+++ Tk800.014/geo_mgr Mon Nov 8 18:42:22 1999
+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
+@@ -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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/geom Mon Dec 29 13:11:31 1997
-+++ Tk800.014/geom Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/grepc Mon Dec 29 13:11:31 1997
-+++ Tk800.014/grepc Mon Nov 8 18:42:22 1999
+diff -Nru Tk800.023/grepc Tk800.023.new/grepc
+--- Tk800.023/grepc Sat Dec 30 13:16:02 2000
++++ Tk800.023.new/grepc Sat Sep 1 07:05:34 2001
@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl
-+#!/usr/bin/perl
-
- use File::Find;
- use Getopt::Std;
---- Tk800.014.paths/grepperl Tue Oct 13 13:33:47 1998
-+++ Tk800.014/grepperl Mon Nov 8 18:42:22 1999
+-#!/tools/local/perl -w
++#!/usr/bin/perl -w
+ use strict;
+ use vars qw($file);
+ use Data::Dumper;
+diff -Nru Tk800.023/grepperl Tk800.023.new/grepperl
+--- Tk800.023/grepperl Thu Mar 29 10:42:59 2001
++++ Tk800.023.new/grepperl Sat Sep 1 07:08:10 2001
@@ -1,4 +1,4 @@
--#!/usr/local/bin/perl
-+#!/usr/bin/perl
+-#!/tools/local/perl -w
++#!/usr/bin/perl -w
use Getopt::Std;
---- Tk800.014.paths/grid_adj Sat Feb 28 23:17:52 1998
-+++ Tk800.014/grid_adj Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
require Tk::TextUndo;
require Tk::Adjuster;
---- Tk800.014.paths/grid_test Mon Dec 29 13:11:31 1997
-+++ Tk800.014/grid_test Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
my $mw = MainWindow->new;
open(FILE,__FILE__);
---- Tk800.014.paths/gridbug Mon Dec 29 13:11:31 1997
-+++ Tk800.014/gridbug Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use Carp;
$top = MainWindow->new();
---- Tk800.014.paths/hackMM Mon Dec 29 13:11:31 1997
-+++ Tk800.014/hackMM Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use File::Find;
---- Tk800.014.paths/hlfm Mon Dec 29 13:11:31 1997
-+++ Tk800.014/hlfm Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
require Tk::Dirlist;
---- Tk800.014.paths/hlist_bg Mon Dec 29 13:11:31 1997
-+++ Tk800.014/hlist_bg Mon Nov 8 18:42:22 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
require Tk::HList;
---- Tk800.014.paths/iconwin Fri Jun 26 16:29:39 1998
-+++ Tk800.014/iconwin Mon Nov 8 18:42:22 1999
+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
+@@ -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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/image_test Tue Feb 10 18:47:47 1998
-+++ Tk800.014/image_test Mon Nov 8 18:42:33 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/inline_bitmap Fri Feb 13 18:38:49 1998
-+++ Tk800.014/inline_bitmap Mon Nov 8 18:42:33 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
---- Tk800.014.paths/keyWords Mon Dec 29 13:11:31 1997
-+++ Tk800.014/keyWords Mon Nov 8 18:42:33 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use File::Find;
---- Tk800.014.paths/labelpack Mon Dec 29 13:11:31 1997
-+++ Tk800.014/labelpack Mon Nov 8 18:42:33 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
require Tk::LabEntry;
---- Tk800.014.paths/lbformat_demo Mon Dec 29 13:11:31 1997
-+++ Tk800.014/lbformat_demo Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::Font;
---- Tk800.014.paths/leak_test Mon Dec 29 13:11:31 1997
-+++ Tk800.014/leak_test Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
- use Tk::widgets qw(Button);
---- Tk800.014.paths/lentry Sat Jul 11 12:30:29 1998
-+++ Tk800.014/lentry Mon Nov 8 18:42:34 1999
+ 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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/local_demo Mon Dec 29 13:11:31 1997
-+++ Tk800.014/local_demo Mon Nov 8 18:42:34 1999
+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
+@@ -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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk qw(MainLoop *widget);
use Carp;
---- Tk800.014.paths/ls_table Mon Dec 29 13:11:31 1997
-+++ Tk800.014/ls_table Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use Tk::Table;
---- Tk800.014.paths/lsfonts Mon Dec 29 13:11:31 1997
-+++ Tk800.014/lsfonts Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use Tk::Xlib;
---- Tk800.014.paths/menubar Mon Dec 29 13:11:31 1997
-+++ Tk800.014/menubar Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/menubug Mon Jun 29 20:21:35 1998
-+++ Tk800.014/menubug Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use strict;
---- Tk800.014.paths/mitem_test Sat Jul 11 12:30:29 1998
-+++ Tk800.014/mitem_test Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
require 5.003;
use English;
---- Tk800.014.paths/mkExt Mon Dec 29 13:11:31 1997
-+++ Tk800.014/mkExt Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
sub translate
{
---- Tk800.014.paths/mkdist Wed Jun 10 19:41:16 1998
-+++ Tk800.014/mkdist Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use ExtUtils::Manifest "/mani/";
---- Tk800.014.paths/motif_hack Mon Dec 29 13:11:31 1997
-+++ Tk800.014/motif_hack Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Data::Dumper;
use strict;
use Tk;
---- Tk800.014.paths/nested_dialog Mon Dec 29 13:11:31 1997
-+++ Tk800.014/nested_dialog Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use Tk::Dialog;
---- Tk800.014.paths/oddmenu_demo Mon Dec 29 13:11:31 1997
-+++ Tk800.014/oddmenu_demo Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
---- Tk800.014.paths/pTk/LangIO.h.PL Thu Mar 5 20:51:19 1998
-+++ Tk800.014/pTk/LangIO.h.PL Mon Nov 8 18:42:23 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Config;
my @gard = qw(
STDIO_H
---- Tk800.014.paths/pTk/Tcl-pTk Wed Apr 8 21:07:13 1998
-+++ Tk800.014/pTk/Tcl-pTk Mon Nov 8 18:42:23 1999
+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 Carp;
---- Tk800.014.paths/pTk/chext Mon Dec 29 13:11:32 1997
-+++ Tk800.014/pTk/chext Mon Nov 8 18:42:23 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
open(NEED,"<need") || die;
while (<NEED>)
---- Tk800.014.paths/pTk/counts Mon Dec 29 13:11:32 1997
-+++ Tk800.014/pTk/counts Mon Nov 8 18:42:23 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
sub count
{
---- Tk800.014.paths/pTk/findX Mon Dec 29 13:11:32 1997
-+++ Tk800.014/pTk/findX Mon Nov 8 18:42:23 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
BEGIN { require Exporter };
---- Tk800.014.paths/pTk/findcore Mon Dec 29 13:11:32 1997
-+++ Tk800.014/pTk/findcore Mon Nov 8 18:42:23 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
BEGIN { require Exporter };
---- Tk800.014.paths/pTk/findstrings Mon Dec 29 13:11:32 1997
-+++ Tk800.014/pTk/findstrings Mon Nov 8 18:42:23 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
%table = ();
---- Tk800.014.paths/pTk/from Mon Dec 29 13:11:32 1997
-+++ Tk800.014/pTk/from Mon Nov 8 18:42:23 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use File::Find;
---- Tk800.014.paths/pTk/genexc Mon Dec 29 13:11:32 1997
-+++ Tk800.014/pTk/genexc Mon Nov 8 18:42:23 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
my %mTk;
my $dir;
---- Tk800.014.paths/pTk/mTk/tclmerge Mon Feb 9 22:48:47 1998
-+++ Tk800.014/pTk/mTk/tclmerge Mon Nov 8 18:42:28 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
---- Tk800.014.paths/pTk/mTk/tixmerge Mon Feb 9 22:48:55 1998
-+++ Tk800.014/pTk/mTk/tixmerge Mon Nov 8 18:42:30 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
---- Tk800.014.paths/pTk/makeenglish Sat Jul 11 12:30:30 1998
-+++ Tk800.014/pTk/makeenglish Mon Nov 8 18:42:33 1999
+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
@@ -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";
---- Tk800.014.paths/pTk/mkVFunc Fri May 8 18:05:39 1998
-+++ Tk800.014/pTk/mkVFunc Mon Nov 8 18:42:33 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
+ use strict;
- use Getopt::Std;
- my %opt;
---- Tk800.014.paths/pTk/mkXinfo Mon Dec 29 13:11:50 1997
-+++ Tk800.014/pTk/mkXinfo Mon Nov 8 18:42:33 1999
+ 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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
$file = shift;
---- Tk800.014.paths/pTk/mkexc Mon Dec 29 13:11:50 1997
-+++ Tk800.014/pTk/mkexc Mon Nov 8 18:42:33 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use vars qw(%ref %def);
require "process_object";
---- Tk800.014.paths/pTk/mkmethods Mon Dec 29 13:11:50 1997
-+++ Tk800.014/pTk/mkmethods Mon Nov 8 18:42:33 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
$dst = shift;
---- Tk800.014.paths/pTk/tdiff Sun Feb 8 12:30:59 1998
-+++ Tk800.014/pTk/tdiff Mon Nov 8 18:42:33 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
sub fail
{
---- Tk800.014.paths/pTk/why Thu Feb 5 16:37:13 1998
-+++ Tk800.014/pTk/why Mon Nov 8 18:42:33 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
---- Tk800.014.paths/pfm Sat Jul 11 12:30:30 1998
-+++ Tk800.014/pfm Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use POSIX qw(getcwd);
use Tk;
---- Tk800.014.paths/pictgrid Mon Dec 29 13:11:52 1997
-+++ Tk800.014/pictgrid Mon Nov 8 18:42:34 1999
+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;
---- Tk800.014.paths/pipe_test Mon Dec 29 13:11:52 1997
-+++ Tk800.014/pipe_test Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
require Tk::IO;
---- Tk800.014.paths/pixmap_test Mon Dec 29 13:11:52 1997
-+++ Tk800.014/pixmap_test Mon Nov 8 18:42:34 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
require Tk::Pixmap;
---- Tk800.014.paths/pod/extract/extpod Sat Apr 18 12:00:20 1998
-+++ Tk800.014/pod/extract/extpod Mon Nov 8 18:42:35 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Getopt::Std;
use ExtUtils::Manifest "/mani/";
---- Tk800.014.paths/pod/recat Sun Mar 22 13:54:46 1998
-+++ Tk800.014/pod/recat Mon Nov 8 18:42:36 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
my $sec;
my %cat;
---- Tk800.014.paths/pod/subs Mon Mar 23 19:07:41 1998
-+++ Tk800.014/pod/subs Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use blib;
use Tk;
use strict;
---- Tk800.014.paths/popup Mon Dec 29 13:11:52 1997
-+++ Tk800.014/popup Mon Nov 8 18:42:37 1999
+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
+@@ -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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/popup_menu Mon Dec 29 13:11:52 1997
-+++ Tk800.014/popup_menu Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
---- Tk800.014.paths/prop_demo Mon Dec 29 13:11:52 1997
-+++ Tk800.014/prop_demo Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/ptked Thu Dec 10 21:54:48 1998
-+++ Tk800.014/ptked Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
-
- use Tk;
- use Tk::DropSite qw(Sun);
---- Tk800.014.paths/ptknews Sat Feb 28 23:18:15 1998
-+++ Tk800.014/ptknews Mon Nov 8 18:42:37 1999
+ 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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
---- Tk800.014.paths/scale_test Mon Dec 29 13:11:52 1997
-+++ Tk800.014/scale_test Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/scrolled_demo Mon Dec 29 13:11:52 1997
-+++ Tk800.014/scrolled_demo Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use strict;
---- Tk800.014.paths/sillymenu Fri Nov 13 19:47:28 1998
-+++ Tk800.014/sillymenu Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
---- Tk800.014.paths/sockets Mon Dec 29 13:11:52 1997
-+++ Tk800.014/sockets Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use IO::Socket;
use Tk::IO;
---- Tk800.014.paths/stripblib Thu Jul 2 20:32:40 1998
-+++ Tk800.014/stripblib Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use File::Find;
find(\&strip,'blib/arch');
---- Tk800.014.paths/style_test Sat May 9 12:31:49 1998
-+++ Tk800.014/style_test Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use Tk::HList;
---- Tk800.014.paths/submethods Mon Dec 29 13:11:52 1997
-+++ Tk800.014/submethods Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
$meth = "pTk/Methods.def";
%sub = ();
---- Tk800.014.paths/symbols Mon Dec 29 13:11:52 1997
-+++ Tk800.014/symbols Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Config;
---- Tk800.014.paths/table_demo Fri Feb 13 18:38:52 1998
-+++ Tk800.014/table_demo Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use Tk::Table;
---- Tk800.014.paths/tainted Mon Dec 29 13:11:52 1997
-+++ Tk800.014/tainted Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -T
+#!/usr/bin/perl -T
use Tk;
---- Tk800.014.paths/tcl2perl Mon Dec 29 13:11:52 1997
-+++ Tk800.014/tcl2perl Mon Nov 8 18:42:37 1999
+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
@@ -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.014.paths/tcolour Mon Dec 29 13:11:52 1997
-+++ Tk800.014/tcolour Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/text_demo Mon Dec 29 13:11:52 1997
-+++ Tk800.014/text_demo Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
require Tk::Text;
---- Tk800.014.paths/tie_basic Mon Dec 29 13:11:52 1997
-+++ Tk800.014/tie_basic Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# use Memory (2440);
---- Tk800.014.paths/tiehandle Mon Dec 29 13:11:52 1997
-+++ Tk800.014/tiehandle Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
---- Tk800.014.paths/tietext Mon Dec 29 13:11:52 1997
-+++ Tk800.014/tietext Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
{package Tk::Text::Contents;
---- Tk800.014.paths/time Mon Dec 29 13:11:53 1997
-+++ Tk800.014/time Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk::Stats 'Start';
use strict;
use Tk;
---- Tk800.014.paths/tiny Tue Mar 2 21:46:57 1999
-+++ Tk800.014/tiny Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::widgets qw(Button);
---- Tk800.014.paths/tixwm_demo Mon Dec 29 13:11:53 1997
-+++ Tk800.014/tixwm_demo Mon Nov 8 18:42:37 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
use Tk::Dialog;
---- Tk800.014.paths/tkperldoc Mon Dec 29 13:11:53 1997
-+++ Tk800.014/tkperldoc Mon Nov 8 18:42:38 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
---- Tk800.014.paths/tkpsh Sun May 17 13:27:47 1998
-+++ Tk800.014/tkpsh Mon Nov 8 18:42:38 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
require 5.001;
use IO::Handle;
---- Tk800.014.paths/tktail Mon Dec 29 13:11:53 1997
-+++ Tk800.014/tktail Mon Nov 8 18:42:38 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use strict;
use Tk;
use IO::File;
---- Tk800.014.paths/two_main Mon Dec 29 13:11:53 1997
-+++ Tk800.014/two_main Mon Nov 8 18:42:38 1999
+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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
use Tk;
-
---- Tk800.014.paths/uninstall Mon Dec 29 13:11:53 1997
-+++ Tk800.014/uninstall Mon Nov 8 18:42:38 1999
+ 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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
BEGIN {exec('perl5.002',$0,@ARGV) unless ($] >= 5.002)}
use Config;
use Getopt::Long;
---- Tk800.014.paths/xlib_demo Mon Dec 29 13:11:53 1997
-+++ Tk800.014/xlib_demo Mon Nov 8 18:42:38 1999
+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
+@@ -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
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w