perl-Tk-paths.patch

   1 --- Tk800.022/Contrib/book-examples/f-15.5.pl.wiget     Tue Jul 27 20:20:04 1999
   2 +++ Tk800.022/Contrib/book-examples/f-15.5.pl   Wed Nov 15 17:10:09 2000
   3 @@ -1,4 +1,4 @@
   4 -#!/usr/local/bin/perl -w
   5 +#!/usr/bin/perl -w
   6
   7  #
   8  # Figure 15.5, p153
   9 --- Tk800.022/Contrib/book-examples/f-16.1.pl.wiget     Tue Jul 27 20:20:04 1999
  10 +++ Tk800.022/Contrib/book-examples/f-16.1.pl   Wed Nov 15 17:10:09 2000
  11 @@ -1,4 +1,4 @@
  12 -#!/usr/local/bin/perl -w
  13 +#!/usr/bin/perl -w
  14
  15  #
  16  # Figure 16.1, p159
  17 --- Tk800.022/Contrib/book-examples/f-16.10.pl.wiget    Tue Jul 27 20:20:04 1999
  18 +++ Tk800.022/Contrib/book-examples/f-16.10.pl  Wed Nov 15 17:10:09 2000
  19 @@ -1,4 +1,4 @@
  20 -#!/usr/local/bin/perl -w
  21 +#!/usr/bin/perl -w
  22
  23  #
  24  # Figure 16.8, p166
  25 --- Tk800.022/Contrib/book-examples/f-16.2.pl.wiget     Tue Jul 27 20:20:04 1999
  26 +++ Tk800.022/Contrib/book-examples/f-16.2.pl   Wed Nov 15 17:10:09 2000
  27 @@ -1,4 +1,4 @@
  28 -#!/usr/local/bin/perl -w
  29 +#!/usr/bin/perl -w
  30
  31  #
  32  # Figure 16.2, p161
  33 --- Tk800.022/Contrib/book-examples/f-16.3.pl.wiget     Tue Jul 27 20:20:04 1999
  34 +++ Tk800.022/Contrib/book-examples/f-16.3.pl   Wed Nov 15 17:10:09 2000
  35 @@ -1,4 +1,4 @@
  36 -#!/usr/local/bin/perl -w
  37 +#!/usr/bin/perl -w
  38
  39  #
  40  # Figure 16.3, p162
  41 --- Tk800.022/Contrib/book-examples/f-16.6.pl.wiget     Tue Jul 27 20:20:04 1999
  42 +++ Tk800.022/Contrib/book-examples/f-16.6.pl   Wed Nov 15 17:10:09 2000
  43 @@ -1,4 +1,4 @@
  44 -#!/usr/local/bin/perl -w
  45 +#!/usr/bin/perl -w
  46
  47  #
  48  # Figure 16.6, p165
  49 --- Tk800.022/Contrib/book-examples/f-16.7.pl.wiget     Tue Jul 27 20:20:04 1999
  50 +++ Tk800.022/Contrib/book-examples/f-16.7.pl   Wed Nov 15 17:10:09 2000
  51 @@ -1,4 +1,4 @@
  52 -#!/usr/local/bin/perl -w
  53 +#!/usr/bin/perl -w
  54
  55  #
  56  # Figure 16.7, p166
  57 --- Tk800.022/Contrib/book-examples/f-16.8.pl.wiget     Tue Jul 27 20:20:04 1999
  58 +++ Tk800.022/Contrib/book-examples/f-16.8.pl   Wed Nov 15 17:10:09 2000
  59 @@ -1,4 +1,4 @@
  60 -#!/usr/local/bin/perl -w
  61 +#!/usr/bin/perl -w
  62
  63  #
  64  # Figure 16.8, p166
  65 --- Tk800.022/Contrib/book-examples/f-16.9.pl.wiget     Tue Jul 27 20:20:04 1999
  66 +++ Tk800.022/Contrib/book-examples/f-16.9.pl   Wed Nov 15 17:10:09 2000
  67 @@ -1,4 +1,4 @@
  68 -#!/usr/local/bin/perl -w
  69 +#!/usr/bin/perl -w
  70
  71  #
  72  # Figure 16.8, p166
  73 --- Tk800.022/Contrib/TickerTape.wiget  Tue Jul 27 20:20:04 1999
  74 +++ Tk800.022/Contrib/TickerTape        Wed Nov 15 17:10:09 2000
  75 @@ -1,4 +1,4 @@
  76 -#!/usr/local/bin/perl
  77 +#!/usr/bin/perl
  78
  79  =head1 NAME
  80
  81 --- Tk800.022/Contrib/fd_demo.wiget     Tue Jul 27 20:20:04 1999
  82 +++ Tk800.022/Contrib/fd_demo   Wed Nov 15 17:10:09 2000
  83 @@ -1,4 +1,4 @@
  84 -#!/usr/local/bin/perl -w
  85 +#!/usr/bin/perl -w
  86
  87  use Tk;
  88  require Tk::FileDialog;
  89 --- Tk800.022/Contrib/testlistbox.wiget Tue Jul 27 20:20:04 1999
  90 +++ Tk800.022/Contrib/testlistbox       Wed Nov 15 17:10:09 2000
  91 @@ -1,4 +1,4 @@
  92 -#!/usr/local/bin/perl
  93 +#!/usr/bin/perl
  94  use Tk;
  95  use Tk::TiedListbox;
  96
  97 --- Tk800.022/DragDrop/drag_test.wiget  Tue Jul 27 20:20:04 1999
  98 +++ Tk800.022/DragDrop/drag_test        Wed Nov 15 17:10:09 2000
  99 @@ -1,4 +1,4 @@
 100 -#!/usr/local/bin/perl -w
 101 +#!/usr/bin/perl -w
 102  use Tk;
 103  use strict;
 104  use Tk::DragDrop qw(Sun);
 105 --- Tk800.022/DragDrop/has_sun.wiget    Tue Jul 27 20:20:04 1999
 106 +++ Tk800.022/DragDrop/has_sun  Wed Nov 15 17:10:09 2000
 107 @@ -1,4 +1,4 @@
 108 -#!/usr/local/bin/perl -w
 109 +#!/usr/bin/perl -w
 110  use Tk;
 111
 112  my $mw = MainWindow->new;
 113 --- Tk800.022/DragDrop/local_test.wiget Tue Jul 27 20:20:04 1999
 114 +++ Tk800.022/DragDrop/local_test       Wed Nov 15 17:10:09 2000
 115 @@ -1,4 +1,4 @@
 116 -#!/usr/local/bin/perl -w
 117 +#!/usr/bin/perl -w
 118  use Tk;
 119  use strict;
 120  use Tk::DragDrop;
 121 --- Tk800.022/DragDrop/motion_test.wiget        Tue Jul 27 20:20:04 1999
 122 +++ Tk800.022/DragDrop/motion_test      Wed Nov 15 17:10:09 2000
 123 @@ -1,4 +1,4 @@
 124 -#!/usr/local/bin/perl -w
 125 +#!/usr/bin/perl -w
 126  use Tk;
 127  use strict;
 128  use Tk::DragDrop;
 129 --- Tk800.022/DragDrop/selection.wiget  Tue Jul 27 20:20:04 1999
 130 +++ Tk800.022/DragDrop/selection        Wed Nov 15 17:10:09 2000
 131 @@ -1,4 +1,4 @@
 132 -#!/usr/local/bin/perl -w
 133 +#!/usr/bin/perl -w
 134  use Tk;
 135  use strict;
 136
 137 --- Tk800.022/DragDrop/site_test.wiget  Sat Aug 21 22:03:26 1999
 138 +++ Tk800.022/DragDrop/site_test        Wed Nov 15 17:10:09 2000
 139 @@ -1,4 +1,4 @@
 140 -#!/usr/local/bin/perl -w
 141 +#!/usr/bin/perl -w
 142  use Tk;
 143  use strict;
 144  use Tk::DropSite;
 145 --- Tk800.022/Extensions/ImageBack/background.wiget     Tue Jul 27 20:20:05 1999
 146 +++ Tk800.022/Extensions/ImageBack/background   Wed Nov 15 17:10:09 2000
 147 @@ -1,4 +1,4 @@
 148 -#!/usr/local/bin/perl -w
 149 +#!/usr/bin/perl -w
 150  use Tk;
 151  use Tk::ImageBack;
 152  use Tk::Photo;
 153 --- Tk800.022/HList/Tix2perl.wiget      Tue Jul 27 20:20:05 1999
 154 +++ Tk800.022/HList/Tix2perl    Wed Nov 15 17:10:09 2000
 155 @@ -1,4 +1,4 @@
 156 -#!/usr/local/bin/perl -w
 157 +#!/usr/bin/perl -w
 158
 159  use Tk::Pretty;
 160
 161 --- Tk800.022/TixGrid/tgdemo_config.wiget       Tue Jul 27 20:20:07 1999
 162 +++ Tk800.022/TixGrid/tgdemo_config     Wed Nov 15 17:10:09 2000
 163 @@ -1,4 +1,4 @@
 164 -#!/usr/local/bin/perl -w
 165 +#!/usr/bin/perl -w
 166  # tixgrid demo
 167  #      standalone or sourceable in ptksh
 168
 169 --- Tk800.022/WinPhoto/try.wiget        Tue Jul 27 20:20:11 1999
 170 +++ Tk800.022/WinPhoto/try      Wed Nov 15 17:10:09 2000
 171 @@ -1,4 +1,4 @@
 172 -#!/usr/local/bin/perl -w
 173 +#!/usr/bin/perl -w
 174  use Tk;
 175  use Tk::WinPhoto;
 176  use Cwd;
 177 --- Tk800.022/Xlib/drops.wiget  Tue Jul 27 20:20:11 1999
 178 +++ Tk800.022/Xlib/drops        Wed Nov 15 17:10:09 2000
 179 @@ -1,4 +1,4 @@
 180 -#!/usr/local/bin/perl
 181 +#!/usr/bin/perl
 182
 183
 184  use Tk;
 185 --- Tk800.022/Xlib/load.wiget   Tue Jul 27 20:20:11 1999
 186 +++ Tk800.022/Xlib/load Wed Nov 15 17:10:09 2000
 187 @@ -1,4 +1,4 @@
 188 -#!/usr/local/bin/perl -w
 189 +#!/usr/bin/perl -w
 190  use strict;
 191  use Tk;
 192  use Tk::Xlib;
 193 --- Tk800.022/Xlib/motif_site.wiget     Tue Jul 27 20:20:11 1999
 194 +++ Tk800.022/Xlib/motif_site   Wed Nov 15 17:10:09 2000
 195 @@ -1,4 +1,4 @@
 196 -#!/usr/local/bin/perl -w
 197 +#!/usr/bin/perl -w
 198  use Tk;
 199  use Tk::Xlib;
 200  use Data::Dumper;
 201 --- Tk800.022/Xlib/tree_demo.wiget      Tue Jul 27 20:20:11 1999
 202 +++ Tk800.022/Xlib/tree_demo    Wed Nov 15 17:10:09 2000
 203 @@ -1,4 +1,4 @@
 204 -#!/usr/local/bin/perl -w
 205 +#!/usr/bin/perl -w
 206  use Tk;
 207  use Tk::Xlib;
 208  use Tk::HList;
 209 --- Tk800.022/bin/defs.wiget    Tue Jul 27 20:20:11 1999
 210 +++ Tk800.022/bin/defs  Wed Nov 15 17:10:09 2000
 211 @@ -1,4 +1,4 @@
 212 -#!/usr/local/bin/perl
 213 +#!/usr/bin/perl
 214
 215  %def   = ();
 216  %need  = ();
 217 --- Tk800.022/bin/defunc.wiget  Tue Jul 27 20:20:11 1999
 218 +++ Tk800.022/bin/defunc        Wed Nov 15 17:10:09 2000
 219 @@ -1,4 +1,4 @@
 220 -#!/usr/local/bin/perl
 221 +#!/usr/bin/perl
 222
 223  while (<>)
 224   {
 225 --- Tk800.022/bin/newstyle.wiget        Tue Jul 27 20:20:11 1999
 226 +++ Tk800.022/bin/newstyle      Wed Nov 15 17:10:09 2000
 227 @@ -1,4 +1,4 @@
 228 -#!/usr/local/bin/perl
 229 +#!/usr/bin/perl
 230
 231  @files = @ARGV;
 232
 233 --- Tk800.022/bin/perms.wiget   Tue Jul 27 20:20:11 1999
 234 +++ Tk800.022/bin/perms Wed Nov 15 17:10:09 2000
 235 @@ -1,4 +1,4 @@
 236 -#!/usr/local/bin/perl -w
 237 +#!/usr/bin/perl -w
 238  use strict;
 239  use File::Find;
 240
 241 --- Tk800.022/bin/unres.wiget   Tue Jul 27 20:20:11 1999
 242 +++ Tk800.022/bin/unres Wed Nov 15 17:10:09 2000
 243 @@ -1,4 +1,4 @@
 244 -#!/usr/local/bin/perl -w
 245 +#!/usr/bin/perl -w
 246
 247  %done = ();
 248  %defs = ();
 249 --- Tk800.022/bin/uselib.wiget  Tue Jul 27 20:20:11 1999
 250 +++ Tk800.022/bin/uselib        Wed Nov 15 17:10:09 2000
 251 @@ -1,4 +1,4 @@
 252 -#!/usr/local/bin/perl
 253 +#!/usr/bin/perl
 254
 255  use File::Find;
 256
 257 --- Tk800.022/compile/findloader.wiget  Tue Jul 27 20:20:11 1999
 258 +++ Tk800.022/compile/findloader        Wed Nov 15 17:10:09 2000
 259 @@ -1,4 +1,4 @@
 260 -#!/usr/local/bin/perl -w
 261 +#!/usr/bin/perl -w
 262  use Config;
 263  my $sfx = $Config{'lib_ext'};
 264  foreach my $dir (@INC)
 265 --- Tk800.022/compile/splitfunc.wiget   Tue Jul 27 20:20:11 1999
 266 +++ Tk800.022/compile/splitfunc Wed Nov 15 17:10:09 2000
 267 @@ -1,4 +1,4 @@
 268 -#!/usr/local/bin/perl -w
 269 +#!/usr/bin/perl -w
 270  use IO::File;
 271
 272  while (<>)
 273 --- Tk800.022/demos/browse.wiget        Tue Jul 27 20:20:12 1999
 274 +++ Tk800.022/demos/browse      Wed Nov 15 17:10:09 2000
 275 @@ -1,4 +1,4 @@
 276 -#!/usr/local/bin/perl -w
 277 +#!/usr/bin/perl -w
 278  #
 279  # This script generates a directory browser, which lists the working directory and allows you to open files or subdirectories
 280  # by double-clicking.
 281 --- Tk800.022/demos/color_editor.wiget  Tue Jul 27 20:20:12 1999
 282 +++ Tk800.022/demos/color_editor        Wed Nov 15 17:10:09 2000
 283 @@ -1,4 +1,4 @@
 284 -#!/usr/local/bin/perl -w
 285 +#!/usr/bin/perl -w
 286  #
 287  # ColorEditor demonstration.
 288
 289 --- Tk800.022/demos/composite.wiget     Tue Jul 27 20:20:12 1999
 290 +++ Tk800.022/demos/composite   Wed Nov 15 17:10:09 2000
 291 @@ -1,4 +1,4 @@
 292 -#!/usr/local/bin/perl -w
 293 +#!/usr/bin/perl -w
 294
 295
 296  use English;
 297 --- Tk800.022/demos/dialog.wiget        Tue Jul 27 20:20:17 1999
 298 +++ Tk800.022/demos/dialog      Wed Nov 15 17:10:09 2000
 299 @@ -1,4 +1,4 @@
 300 -#!/usr/local/bin/perl -w
 301 +#!/usr/bin/perl -w
 302
 303  # Demonstrate how to use Dialog to create and manipulate dialog objects.
 304  # lusol@Lehigh.EDU  95/06/14
 305 --- Tk800.022/demos/hello.wiget Tue Jul 27 20:20:17 1999
 306 +++ Tk800.022/demos/hello       Wed Nov 15 17:10:09 2000
 307 @@ -1,4 +1,4 @@
 308 -#!/usr/local/bin/perl -w
 309 +#!/usr/bin/perl -w
 310  #
 311  # Simple Tk script to create a button that prints "Hello, world".  Click on
 312  # the button to terminate the program.
 313 --- Tk800.022/demos/ixset.wiget Tue Jul 27 20:20:17 1999
 314 +++ Tk800.022/demos/ixset       Wed Nov 15 17:10:09 2000
 315 @@ -1,4 +1,4 @@
 316 -#!/usr/local/bin/perl
 317 +#!/usr/bin/perl
 318
 319  # A nice interface to "xset" to change X server settings
 320  #
 321 --- Tk800.022/demos/rmt.wiget   Fri Jul 30 17:56:30 1999
 322 +++ Tk800.022/demos/rmt Wed Nov 15 17:10:09 2000
 323 @@ -1,4 +1,4 @@
 324 -#!/usr/local/bin/perl -wT
 325 +#!/usr/bin/perl -wT
 326  #
 327  # This script implements a simple remote-control mechanism for Tk
 328  # applications.  It allows you to select an application and then type
 329 --- Tk800.022/demos/rolodex.wiget       Tue Jul 27 20:20:17 1999
 330 +++ Tk800.022/demos/rolodex     Wed Nov 15 17:10:09 2000
 331 @@ -1,4 +1,4 @@
 332 -#!/usr/local/bin/perl -w
 333 +#!/usr/bin/perl -w
 334  #
 335  # This script was written as an entry in Tom LaStrange's rolodex benchmark.
 336  # 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.
 337 --- Tk800.022/demos/timer.wiget Tue Jul 27 20:20:17 1999
 338 +++ Tk800.022/demos/timer       Wed Nov 15 17:10:09 2000
 339 @@ -1,4 +1,4 @@
 340 -#!/usr/local/bin/perl -w
 341 +#!/usr/bin/perl -w
 342  #
 343  # This script generates a counter with start and stop buttons.  Exit with
 344  # Ctrl/c or Ctrl/q.
 345 --- Tk800.022/demos/tom.wiget   Tue Jul 27 20:20:17 1999
 346 +++ Tk800.022/demos/tom Wed Nov 15 17:10:09 2000
 347 @@ -1,4 +1,4 @@
 348 -#!/usr/local/bin/perl -w
 349 +#!/usr/bin/perl -w
 350  #
 351  # Sample program to get Tom Christiansen going with Perl/Tk.
 352
 353 --- Tk800.022/demos/widget.wiget        Fri Mar 31 14:55:09 2000
 354 +++ Tk800.022/demos/widget      Wed Nov 15 17:10:09 2000
 355 @@ -1,4 +1,4 @@
 356 -#!/usr/local/bin/perl -w
 357 +#!/usr/bin/perl -w
 358
 359  require 5.004;
 360
 361 --- Tk800.022/demos/widget_old.wiget    Tue Jul 27 20:20:18 1999
 362 +++ Tk800.022/demos/widget_old  Wed Nov 15 17:10:09 2000
 363 @@ -1,4 +1,4 @@
 364 -#!/usr/local/bin/perl -w
 365 +#!/usr/bin/perl -w
 366  #
 367  # This script demonstrates the various widgets provided by Tk, along with many of the features of the Tk toolkit.  This file
 368  # only contains code to generate the main window for the application, which invokes individual demonstrations.  The code for
 369 --- Tk800.022/pTk/mTk/tclmerge.wiget    Tue Jul 27 20:20:46 1999
 370 +++ Tk800.022/pTk/mTk/tclmerge  Wed Nov 15 17:10:09 2000
 371 @@ -1,4 +1,4 @@
 372 -#!/usr/local/bin/perl -w
 373 +#!/usr/bin/perl -w
 374
 375  use strict;
 376
 377 --- Tk800.022/pTk/mTk/tixmerge.wiget    Tue Jul 27 20:20:58 1999
 378 +++ Tk800.022/pTk/mTk/tixmerge  Wed Nov 15 17:10:09 2000
 379 @@ -1,4 +1,4 @@
 380 -#!/usr/local/bin/perl -w
 381 +#!/usr/bin/perl -w
 382
 383  use strict;
 384
 385 --- Tk800.022/pTk/LangIO.h.PL.wiget     Tue Jul 27 20:20:25 1999
 386 +++ Tk800.022/pTk/LangIO.h.PL   Wed Nov 15 17:10:09 2000
 387 @@ -1,4 +1,4 @@
 388 -#!/usr/local/bin/perl -w
 389 +#!/usr/bin/perl -w
 390  use Config;
 391  my @gard = qw(
 392  STDIO_H
 393 --- Tk800.022/pTk/Tcl-pTk.wiget Sun Dec 12 14:58:36 1999
 394 +++ Tk800.022/pTk/Tcl-pTk       Wed Nov 15 17:10:09 2000
 395 @@ -1,4 +1,4 @@
 396 -#!/usr/local/bin/perl -w
 397 +#!/usr/bin/perl -w
 398
 399  use Carp;
 400
 401 --- Tk800.022/pTk/chext.wiget   Tue Jul 27 20:20:26 1999
 402 +++ Tk800.022/pTk/chext Wed Nov 15 17:10:09 2000
 403 @@ -1,4 +1,4 @@
 404 -#!/usr/local/bin/perl -w
 405 +#!/usr/bin/perl -w
 406
 407  open(NEED,"<need") || die;
 408  while (<NEED>)
 409 --- Tk800.022/pTk/counts.wiget  Tue Jul 27 20:20:26 1999
 410 +++ Tk800.022/pTk/counts        Wed Nov 15 17:10:09 2000
 411 @@ -1,4 +1,4 @@
 412 -#!/usr/local/bin/perl
 413 +#!/usr/bin/perl
 414
 415  sub count
 416  {
 417 --- Tk800.022/pTk/findX.wiget   Tue Jul 27 20:20:26 1999
 418 +++ Tk800.022/pTk/findX Wed Nov 15 17:10:09 2000
 419 @@ -1,4 +1,4 @@
 420 -#!/usr/local/bin/perl -w
 421 +#!/usr/bin/perl -w
 422
 423  BEGIN { require Exporter };
 424
 425 --- Tk800.022/pTk/findcore.wiget        Tue Jul 27 20:20:26 1999
 426 +++ Tk800.022/pTk/findcore      Wed Nov 15 17:10:09 2000
 427 @@ -1,4 +1,4 @@
 428 -#!/usr/local/bin/perl -w
 429 +#!/usr/bin/perl -w
 430
 431  BEGIN { require Exporter };
 432
 433 --- Tk800.022/pTk/findstrings.wiget     Tue Jul 27 20:20:26 1999
 434 +++ Tk800.022/pTk/findstrings   Wed Nov 15 17:10:09 2000
 435 @@ -1,4 +1,4 @@
 436 -#!/usr/local/bin/perl -w
 437 +#!/usr/bin/perl -w
 438
 439
 440  %table = ();
 441 --- Tk800.022/pTk/from.wiget    Tue Jul 27 20:20:26 1999
 442 +++ Tk800.022/pTk/from  Wed Nov 15 17:10:09 2000
 443 @@ -1,4 +1,4 @@
 444 -#!/usr/local/bin/perl -w
 445 +#!/usr/bin/perl -w
 446  use strict;
 447
 448  use File::Find;
 449 --- Tk800.022/pTk/genexc.wiget  Tue Jul 27 20:20:26 1999
 450 +++ Tk800.022/pTk/genexc        Wed Nov 15 17:10:09 2000
 451 @@ -1,4 +1,4 @@
 452 -#!/usr/local/bin/perl -w
 453 +#!/usr/bin/perl -w
 454
 455  my %mTk;
 456  my $dir;
 457 --- Tk800.022/pTk/makeenglish.wiget     Tue Jul 27 20:21:09 1999
 458 +++ Tk800.022/pTk/makeenglish   Wed Nov 15 17:10:09 2000
 459 @@ -1,4 +1,4 @@
 460 -#!/usr/local/bin/perl -w
 461 +#!/usr/bin/perl -w
 462  # BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) }
 463
 464  die "Must be executed from Tk/pTk distribution directory\n" unless -f "Lang.h";
 465 --- Tk800.022/pTk/mkVFunc.wiget Sat Nov 20 22:09:59 1999
 466 +++ Tk800.022/pTk/mkVFunc       Wed Nov 15 17:17:16 2000
 467 @@ -1,4 +1,4 @@
 468 -#!/usr/local/bin/perl -w
 469 +#!/usr/bin/perl -w
 470  use strict;
 471
 472  my %Ignore;
 473 --- Tk800.022/pTk/mkXinfo.wiget Tue Jul 27 20:21:09 1999
 474 +++ Tk800.022/pTk/mkXinfo       Wed Nov 15 17:10:09 2000
 475 @@ -1,4 +1,4 @@
 476 -#!/usr/local/bin/perl -w
 477 +#!/usr/bin/perl -w
 478
 479  $file = shift;
 480
 481 --- Tk800.022/pTk/mkexc.wiget   Tue Jul 27 20:21:09 1999
 482 +++ Tk800.022/pTk/mkexc Wed Nov 15 17:10:09 2000
 483 @@ -1,4 +1,4 @@
 484 -#!/usr/local/bin/perl -w
 485 +#!/usr/bin/perl -w
 486  use strict;
 487  use vars qw(%ref %def);
 488  require "process_object";
 489 --- Tk800.022/pTk/mkmethods.wiget       Tue Jul 27 20:21:09 1999
 490 +++ Tk800.022/pTk/mkmethods     Wed Nov 15 17:10:09 2000
 491 @@ -1,4 +1,4 @@
 492 -#!/usr/local/bin/perl -w
 493 +#!/usr/bin/perl -w
 494
 495  $dst = shift;
 496
 497 --- Tk800.022/pTk/tdiff.wiget   Tue Jul 27 20:21:10 1999
 498 +++ Tk800.022/pTk/tdiff Wed Nov 15 17:10:09 2000
 499 @@ -1,4 +1,4 @@
 500 -#!/usr/local/bin/perl -w
 501 +#!/usr/bin/perl -w
 502
 503  sub fail
 504  {
 505 --- Tk800.022/pTk/why.wiget     Sat Nov 20 14:55:25 1999
 506 +++ Tk800.022/pTk/why   Wed Nov 15 17:10:09 2000
 507 @@ -1,4 +1,4 @@
 508 -#!/usr/local/bin/perl -w
 509 +#!/usr/bin/perl -w
 510
 511  use strict;
 512
 513 --- Tk800.022/pod/extract/extpod.wiget  Tue Nov  9 14:18:00 1999
 514 +++ Tk800.022/pod/extract/extpod        Wed Nov 15 17:10:09 2000
 515 @@ -1,4 +1,4 @@
 516 -#!/usr/local/bin/perl -w
 517 +#!/usr/bin/perl -w
 518  use strict;
 519  use Getopt::Std;
 520  use ExtUtils::Manifest "/mani/";
 521 --- Tk800.022/pod/recat.wiget   Tue Nov  9 14:18:01 1999
 522 +++ Tk800.022/pod/recat Wed Nov 15 17:10:09 2000
 523 @@ -1,4 +1,4 @@
 524 -#!/usr/local/bin/perl -w
 525 +#!/usr/bin/perl -w
 526  use strict;
 527  my $sec;
 528  my %cat;
 529 --- Tk800.022/pod/subs.wiget    Tue Nov  9 14:18:01 1999
 530 +++ Tk800.022/pod/subs  Wed Nov 15 17:10:09 2000
 531 @@ -1,4 +1,4 @@
 532 -#!/usr/local/bin/perl -w
 533 +#!/usr/bin/perl -w
 534  use blib;
 535  use Tk;
 536  use strict;
 537 --- Tk800.022/add_version.wiget Sat Jan 22 15:18:58 2000
 538 +++ Tk800.022/add_version       Wed Nov 15 17:10:09 2000
 539 @@ -1,4 +1,4 @@
 540 -#!/usr/local/bin/perl -w
 541 +#!/usr/bin/perl -w
 542  use strict;
 543  use File::Find;
 544  use Getopt::Std;
 545 --- Tk800.022/adj_demo.wiget    Tue Jul 27 20:20:11 1999
 546 +++ Tk800.022/adj_demo  Wed Nov 15 17:10:09 2000
 547 @@ -1,4 +1,4 @@
 548 -#!/usr/local/bin/perl  -w
 549 +#!/usr/bin/perl  -w
 550  use Tk;
 551  require Tk::TextUndo;
 552
 553 --- Tk800.022/after_demo.wiget  Tue Jul 27 20:20:11 1999
 554 +++ Tk800.022/after_demo        Wed Nov 15 17:10:09 2000
 555 @@ -1,4 +1,4 @@
 556 -#!/usr/local/bin/perl -w
 557 +#!/usr/bin/perl -w
 558
 559  use Tk;
 560  use strict;
 561 --- Tk800.022/after_leak.wiget  Sun Dec 19 21:49:02 1999
 562 +++ Tk800.022/after_leak        Wed Nov 15 17:10:09 2000
 563 @@ -1,4 +1,4 @@
 564 -#!/usr/local/bin/perl -w
 565 +#!/usr/bin/perl -w
 566
 567  use Tk;
 568  use Devel::Leak;
 569 --- Tk800.022/animate.wiget     Tue Jul 27 20:20:11 1999
 570 +++ Tk800.022/animate   Wed Nov 15 17:10:09 2000
 571 @@ -1,4 +1,4 @@
 572 -#!/usr/local/bin/perl -w
 573 +#!/usr/bin/perl -w
 574  use Tk;
 575
 576  my $mw = MainWindow->new;
 577 --- Tk800.022/autoraise.wiget   Tue Jul 27 20:20:11 1999
 578 +++ Tk800.022/autoraise Wed Nov 15 17:10:09 2000
 579 @@ -1,4 +1,4 @@
 580 -#!/usr/local/bin/perl -w
 581 +#!/usr/bin/perl -w
 582
 583  use Tk;
 584
 585 --- Tk800.022/basic_demo.wiget  Thu Apr 27 16:38:55 2000
 586 +++ Tk800.022/basic_demo        Wed Nov 15 17:16:24 2000
 587 @@ -1,4 +1,4 @@
 588 -#!/usr/local/bin/perl
 589 +#!/usr/bin/perl
 590
 591  # use Memory (2440);
 592
 593 --- Tk800.022/bindtest.wiget    Tue Jul 27 20:20:11 1999
 594 +++ Tk800.022/bindtest  Wed Nov 15 17:10:09 2000
 595 @@ -1,4 +1,4 @@
 596 -#!/usr/local/bin/perl -w
 597 +#!/usr/bin/perl -w
 598  use Tk;
 599  use Tk::Menubar;
 600
 601 --- Tk800.022/build.wiget       Tue Jul 27 20:20:11 1999
 602 +++ Tk800.022/build     Wed Nov 15 17:10:09 2000
 603 @@ -1,4 +1,4 @@
 604 -#!/usr/local/bin/perl -w
 605 +#!/usr/bin/perl -w
 606  use Config;
 607  my $make = $Config{'make'};
 608  my @para;
 609 --- Tk800.022/bulkedit.wiget    Sun Dec 19 22:04:14 1999
 610 +++ Tk800.022/bulkedit  Wed Nov 15 17:10:09 2000
 611 @@ -1,4 +1,4 @@
 612 -#!/usr/local/bin/perl -w
 613 +#!/usr/bin/perl -w
 614  use strict;
 615  use Tk;
 616  use Tk::LabEntry;
 617 --- Tk800.022/canvas_ps.wiget   Tue Jul 27 20:20:11 1999
 618 +++ Tk800.022/canvas_ps Wed Nov 15 17:10:09 2000
 619 @@ -1,4 +1,4 @@
 620 -#!/usr/local/bin/perl -w
 621 +#!/usr/bin/perl -w
 622
 623  use Tk;
 624
 625 --- Tk800.022/canvas_scroll.wiget       Thu Nov 25 11:57:29 1999
 626 +++ Tk800.022/canvas_scroll     Wed Nov 15 17:10:09 2000
 627 @@ -1,4 +1,4 @@
 628 -#!/usr/local/bin/perl -w
 629 +#!/usr/bin/perl -w
 630
 631  use Tk;
 632
 633 --- Tk800.022/cbtest.wiget      Tue Jul 27 20:20:11 1999
 634 +++ Tk800.022/cbtest    Wed Nov 15 17:10:09 2000
 635 @@ -1,4 +1,4 @@
 636 -#!/usr/local/bin/perl
 637 +#!/usr/bin/perl
 638
 639  use Tk;
 640  use Tk::Pretty;
 641 --- Tk800.022/check_syms.wiget  Tue Jul 27 20:20:11 1999
 642 +++ Tk800.022/check_syms        Wed Nov 15 17:10:09 2000
 643 @@ -1,4 +1,4 @@
 644 -#!/usr/local/bin/perl -w
 645 +#!/usr/bin/perl -w
 646  use File::Find;
 647  use Config;
 648  my @libs;
 649 --- Tk800.022/checklen.wiget    Tue Jul 27 20:20:11 1999
 650 +++ Tk800.022/checklen  Wed Nov 15 17:10:09 2000
 651 @@ -1,4 +1,4 @@
 652 -#!/usr/local/bin/perl -w
 653 +#!/usr/bin/perl -w
 654
 655  use ExtUtils::Manifest "/mani/";
 656
 657 --- Tk800.022/classtree.wiget   Tue Jul 27 20:20:11 1999
 658 +++ Tk800.022/classtree Wed Nov 15 17:10:09 2000
 659 @@ -1,4 +1,4 @@
 660 -#!/usr/local/bin/perl -w
 661 +#!/usr/bin/perl -w
 662  use strict;
 663  use Tk;
 664  use Tk::widgets qw(Tree Menubar);
 665 --- Tk800.022/cleanup.wiget     Tue Jul 27 20:20:11 1999
 666 +++ Tk800.022/cleanup   Wed Nov 15 17:10:09 2000
 667 @@ -1,4 +1,4 @@
 668 -#!/usr/local/bin/perl -w
 669 +#!/usr/bin/perl -w
 670  use File::Find;
 671  find(\&wanted,'.');
 672
 673 --- Tk800.022/clip_bug.wiget    Tue Jul 27 20:20:11 1999
 674 +++ Tk800.022/clip_bug  Wed Nov 15 17:10:09 2000
 675 @@ -1,4 +1,4 @@
 676 -#!/usr/local/bin/perl -w
 677 +#!/usr/bin/perl -w
 678  # Show a Tk canvas bug:
 679  # when scrolling a canvas, clipping for embedded windows
 680  # uses the embedded windows parent, not the canvas.
 681 --- Tk800.022/copydate.wiget    Tue Jul 27 20:20:12 1999
 682 +++ Tk800.022/copydate  Wed Nov 15 17:10:09 2000
 683 @@ -1,4 +1,4 @@
 684 -#!/usr/local/bin/perl
 685 +#!/usr/bin/perl
 686
 687  use File::Find;
 688  use Time::Local;
 689 --- Tk800.022/cursor_demo.wiget Tue Jul 27 20:20:12 1999
 690 +++ Tk800.022/cursor_demo       Wed Nov 15 17:10:09 2000
 691 @@ -1,4 +1,4 @@
 692 -#!/usr/local/bin/perl -w
 693 +#!/usr/bin/perl -w
 694  use Tk;
 695
 696  my $mw = MainWindow->new;
 697 --- Tk800.022/derived_test.wiget        Tue Jul 27 20:20:18 1999
 698 +++ Tk800.022/derived_test      Wed Nov 15 17:10:09 2000
 699 @@ -1,4 +1,4 @@
 700 -#!/usr/local/bin/perl -w
 701 +#!/usr/bin/perl -w
 702  use Tk;
 703  require Tk::Text;
 704
 705 --- Tk800.022/destroy_test.wiget        Tue Jul 27 20:20:18 1999
 706 +++ Tk800.022/destroy_test      Wed Nov 15 17:10:09 2000
 707 @@ -1,4 +1,4 @@
 708 -#!/usr/local/bin/perl -w
 709 +#!/usr/bin/perl -w
 710
 711
 712  use Tk;
 713 --- Tk800.022/dfpy.wiget        Tue Jul 27 20:20:18 1999
 714 +++ Tk800.022/dfpy      Wed Nov 15 17:10:09 2000
 715 @@ -1,4 +1,4 @@
 716 -#!/usr/local/bin/perl
 717 +#!/usr/bin/perl
 718
 719  use ExtUtils::Manifest "/mani/";
 720  use Cwd;
 721 --- Tk800.022/disbutton.wiget   Tue Jul 27 20:20:18 1999
 722 +++ Tk800.022/disbutton Wed Nov 15 17:10:09 2000
 723 @@ -1,4 +1,4 @@
 724 -#!/usr/local/bin/perl -w
 725 +#!/usr/bin/perl -w
 726
 727  package StickyButton;
 728  require Tk::Widget;
 729 --- Tk800.022/dnd_demo.wiget    Tue Jul 27 20:20:18 1999
 730 +++ Tk800.022/dnd_demo  Wed Nov 15 17:10:09 2000
 731 @@ -1,4 +1,4 @@
 732 -#!/usr/local/bin/perl -w
 733 +#!/usr/bin/perl -w
 734  #
 735  # Demo code to exhibit features of dynamic construction and destruction of
 736  # local (within app.) Drag and Drop sources and sinks. Written for and tested
 737 --- Tk800.022/dump_test.wiget   Tue Jul 27 20:20:24 1999
 738 +++ Tk800.022/dump_test Wed Nov 15 17:10:09 2000
 739 @@ -1,4 +1,4 @@
 740 -#!/usr/local/bin/perl -w
 741 +#!/usr/bin/perl -w
 742  use Tk;
 743  my $top = MainWindow->new;
 744  my $i   = $top->Photo(-file => Tk->findINC('icon.gif'));
 745 --- Tk800.022/embed.wiget       Tue Jul 27 20:20:24 1999
 746 +++ Tk800.022/embed     Wed Nov 15 17:10:09 2000
 747 @@ -1,4 +1,4 @@
 748 -#!/usr/local/bin/perl -w
 749 +#!/usr/bin/perl -w
 750
 751  use Tk;
 752  use IO::File;
 753 --- Tk800.022/error_prop.wiget  Tue Jul 27 20:20:24 1999
 754 +++ Tk800.022/error_prop        Wed Nov 15 17:10:09 2000
 755 @@ -1,4 +1,4 @@
 756 -#!/usr/local/bin/perl -w
 757 +#!/usr/bin/perl -w
 758
 759  use Tk;
 760  use Tk::ErrorDialog;
 761 --- Tk800.022/ewidth_demo.wiget Tue Jul 27 20:20:24 1999
 762 +++ Tk800.022/ewidth_demo       Wed Nov 15 17:10:09 2000
 763 @@ -1,4 +1,4 @@
 764 -#!/usr/local/bin/perl -w
 765 +#!/usr/bin/perl -w
 766  use Tk;
 767  use strict;
 768
 769 --- Tk800.022/findbase.wiget    Tue Jul 27 20:20:24 1999
 770 +++ Tk800.022/findbase  Wed Nov 15 17:10:09 2000
 771 @@ -1,4 +1,4 @@
 772 -#!/usr/local/bin/perl -w
 773 +#!/usr/bin/perl -w
 774
 775  use File::Find;
 776
 777 --- Tk800.022/floppy.wiget      Tue Jul 27 20:20:24 1999
 778 +++ Tk800.022/floppy    Wed Nov 15 17:10:09 2000
 779 @@ -1,4 +1,4 @@
 780 -#!/usr/local/bin/perl
 781 +#!/usr/bin/perl
 782
 783  use ExtUtils::Manifest "/mani/";
 784  use Cwd;
 785 --- Tk800.022/font_demo.wiget   Sun Dec 19 18:25:43 1999
 786 +++ Tk800.022/font_demo Wed Nov 15 17:10:09 2000
 787 @@ -1,4 +1,4 @@
 788 -#!/usr/local/bin/perl -w
 789 +#!/usr/bin/perl -w
 790  use Tk;
 791  use Tk::X11Font;
 792  use Tk::ROText;
 793 --- Tk800.022/font_test.wiget   Tue Jul 27 20:20:24 1999
 794 +++ Tk800.022/font_test Wed Nov 15 17:10:09 2000
 795 @@ -1,4 +1,4 @@
 796 -#!/usr/local/bin/perl -w
 797 +#!/usr/bin/perl -w
 798
 799
 800
 801 --- Tk800.022/fonts.wiget       Tue Jul 27 20:20:24 1999
 802 +++ Tk800.022/fonts     Wed Nov 15 17:10:09 2000
 803 @@ -1,4 +1,4 @@
 804 -#!/usr/local/bin/perl -w
 805 +#!/usr/bin/perl -w
 806  use strict;
 807  use Tk;
 808  use Data::Dumper;
 809 --- Tk800.022/gdb.plx.wiget     Tue Jul 27 20:20:24 1999
 810 +++ Tk800.022/gdb.plx   Wed Nov 15 17:10:09 2000
 811 @@ -1,4 +1,4 @@
 812 -#!/usr/local/bin/perl -w
 813 +#!/usr/bin/perl -w
 814  use Config;
 815  open(INIT,">.gdbinit") || die;
 816  my $perl = $^X;
 817 --- Tk800.022/geo_mgr.wiget     Sat Dec 18 20:52:30 1999
 818 +++ Tk800.022/geo_mgr   Wed Nov 15 17:10:09 2000
 819 @@ -1,4 +1,4 @@
 820 -#!/usr/local/bin/perl -w
 821 +#!/usr/bin/perl -w
 822
 823  use Tk;
 824
 825 --- Tk800.022/geom.wiget        Tue Jul 27 20:20:24 1999
 826 +++ Tk800.022/geom      Wed Nov 15 17:10:09 2000
 827 @@ -1,4 +1,4 @@
 828 -#!/usr/local/bin/perl -w
 829 +#!/usr/bin/perl -w
 830
 831  use Tk;
 832
 833 --- Tk800.022/grepc.wiget       Mon Mar 13 15:24:03 2000
 834 +++ Tk800.022/grepc     Wed Nov 15 17:15:49 2000
 835 @@ -1,4 +1,4 @@
 836 -#!/tools/local/perl -w
 837 +#!/usr/bin/perl -w
 838  use strict;
 839  use vars qw($file);
 840  use Data::Dumper;
 841 --- Tk800.022/grepperl.wiget    Thu Dec 30 15:52:10 1999
 842 +++ Tk800.022/grepperl  Wed Nov 15 17:10:09 2000
 843 @@ -1,4 +1,4 @@
 844 -#!/usr/local/bin/perl
 845 +#!/usr/bin/perl
 846
 847  use Getopt::Std;
 848
 849 --- Tk800.022/grid_adj.wiget    Tue Jul 27 20:20:24 1999
 850 +++ Tk800.022/grid_adj  Wed Nov 15 17:10:09 2000
 851 @@ -1,4 +1,4 @@
 852 -#!/usr/local/bin/perl  -w
 853 +#!/usr/bin/perl  -w
 854  use Tk;
 855  require Tk::TextUndo;
 856  require Tk::Adjuster;
 857 --- Tk800.022/grid_test.wiget   Tue Jul 27 20:20:24 1999
 858 +++ Tk800.022/grid_test Wed Nov 15 17:10:09 2000
 859 @@ -1,4 +1,4 @@
 860 -#!/usr/local/bin/perl -w
 861 +#!/usr/bin/perl -w
 862  use Tk;
 863  my $mw = MainWindow->new;
 864  open(FILE,__FILE__);
 865 --- Tk800.022/gridbug.wiget     Tue Jul 27 20:20:24 1999
 866 +++ Tk800.022/gridbug   Wed Nov 15 17:10:09 2000
 867 @@ -1,4 +1,4 @@
 868 -#!/usr/local/bin/perl -w
 869 +#!/usr/bin/perl -w
 870  use Tk;
 871  use Carp;
 872  $top = MainWindow->new();
 873 --- Tk800.022/hackMM.wiget      Tue Jul 27 20:20:24 1999
 874 +++ Tk800.022/hackMM    Wed Nov 15 17:10:09 2000
 875 @@ -1,4 +1,4 @@
 876 -#!/usr/local/bin/perl -w
 877 +#!/usr/bin/perl -w
 878
 879  use File::Find;
 880
 881 --- Tk800.022/hlfm.wiget        Tue Jul 27 20:20:24 1999
 882 +++ Tk800.022/hlfm      Wed Nov 15 17:10:09 2000
 883 @@ -1,4 +1,4 @@
 884 -#!/usr/local/bin/perl -w
 885 +#!/usr/bin/perl -w
 886  use strict;
 887  use Tk;
 888  require Tk::Dirlist;
 889 --- Tk800.022/hlist_bg.wiget    Tue Jul 27 20:20:24 1999
 890 +++ Tk800.022/hlist_bg  Wed Nov 15 17:10:09 2000
 891 @@ -1,4 +1,4 @@
 892 -#!/usr/local/bin/perl -w
 893 +#!/usr/bin/perl -w
 894  use Tk;
 895  require Tk::HList;
 896
 897 --- Tk800.022/iconwin.wiget     Tue Jul 27 20:20:24 1999
 898 +++ Tk800.022/iconwin   Wed Nov 15 17:10:09 2000
 899 @@ -1,4 +1,4 @@
 900 -#!/usr/local/bin/perl -w
 901 +#!/usr/bin/perl -w
 902
 903  use Tk;
 904
 905 --- Tk800.022/image_test.wiget  Tue Jul 27 20:20:24 1999
 906 +++ Tk800.022/image_test        Wed Nov 15 17:10:09 2000
 907 @@ -1,4 +1,4 @@
 908 -#!/usr/local/bin/perl -w
 909 +#!/usr/bin/perl -w
 910
 911  use Tk;
 912
 913 --- Tk800.022/inline_bitmap.wiget       Tue Jul 27 20:20:24 1999
 914 +++ Tk800.022/inline_bitmap     Wed Nov 15 17:10:09 2000
 915 @@ -1,4 +1,4 @@
 916 -#!/usr/local/bin/perl -w
 917 +#!/usr/bin/perl -w
 918  use strict;
 919  use Tk;
 920
 921 --- Tk800.022/keyWords.wiget    Tue Jul 27 20:20:24 1999
 922 +++ Tk800.022/keyWords  Wed Nov 15 17:10:09 2000
 923 @@ -1,4 +1,4 @@
 924 -#!/usr/local/bin/perl -w
 925 +#!/usr/bin/perl -w
 926
 927  use File::Find;
 928
 929 --- Tk800.022/labelpack.wiget   Tue Jul 27 20:20:24 1999
 930 +++ Tk800.022/labelpack Wed Nov 15 17:10:09 2000
 931 @@ -1,4 +1,4 @@
 932 -#!/usr/local/bin/perl -w
 933 +#!/usr/bin/perl -w
 934
 935  use Tk;
 936  require Tk::LabEntry;
 937 --- Tk800.022/lbformat_demo.wiget       Tue Jul 27 20:20:24 1999
 938 +++ Tk800.022/lbformat_demo     Wed Nov 15 17:10:09 2000
 939 @@ -1,4 +1,4 @@
 940 -#!/usr/local/bin/perl -w
 941 +#!/usr/bin/perl -w
 942  use strict;
 943  use Tk;
 944  use Tk::Font;
 945 --- Tk800.022/leak_test.wiget   Sun Dec 19 21:54:49 1999
 946 +++ Tk800.022/leak_test Wed Nov 15 17:10:09 2000
 947 @@ -1,4 +1,4 @@
 948 -#!/usr/local/bin/perl -w
 949 +#!/usr/bin/perl -w
 950
 951  use Tk;
 952  use Devel::Leak;
 953 --- Tk800.022/lentry.wiget      Tue Jul 27 20:20:24 1999
 954 +++ Tk800.022/lentry    Wed Nov 15 17:10:09 2000
 955 @@ -1,4 +1,4 @@
 956 -#!/usr/local/bin/perl -w
 957 +#!/usr/bin/perl -w
 958
 959  use Tk;
 960
 961 --- Tk800.022/local_demo.wiget  Tue Jul 27 20:20:24 1999
 962 +++ Tk800.022/local_demo        Wed Nov 15 17:10:09 2000
 963 @@ -1,4 +1,4 @@
 964 -#!/usr/local/bin/perl -w
 965 +#!/usr/bin/perl -w
 966  use strict;
 967  use Tk qw(MainLoop *widget);
 968  use Carp;
 969 --- Tk800.022/ls_table.wiget    Tue Jul 27 20:20:24 1999
 970 +++ Tk800.022/ls_table  Wed Nov 15 17:10:09 2000
 971 @@ -1,4 +1,4 @@
 972 -#!/usr/local/bin/perl -w
 973 +#!/usr/bin/perl -w
 974
 975  use Tk;
 976  use Tk::Table;
 977 --- Tk800.022/lsfonts.wiget     Tue Jul 27 20:20:24 1999
 978 +++ Tk800.022/lsfonts   Wed Nov 15 17:10:09 2000
 979 @@ -1,4 +1,4 @@
 980 -#!/usr/local/bin/perl -w
 981 +#!/usr/bin/perl -w
 982
 983  use Tk;
 984  use Tk::Xlib;
 985 --- Tk800.022/menubar.wiget     Tue Jul 27 20:20:24 1999
 986 +++ Tk800.022/menubar   Wed Nov 15 17:10:09 2000
 987 @@ -1,4 +1,4 @@
 988 -#!/usr/local/bin/perl -w
 989 +#!/usr/bin/perl -w
 990
 991  use Tk;
 992
 993 --- Tk800.022/menubug.wiget     Tue Jul 27 20:20:24 1999
 994 +++ Tk800.022/menubug   Wed Nov 15 17:10:09 2000
 995 @@ -1,4 +1,4 @@
 996 -#!/usr/local/bin/perl -w
 997 +#!/usr/bin/perl -w
 998  use Tk;
 999  use strict;
1000
1001 --- Tk800.022/mitem_test.wiget  Tue Jul 27 20:20:24 1999
1002 +++ Tk800.022/mitem_test        Wed Nov 15 17:10:09 2000
1003 @@ -1,4 +1,4 @@
1004 -#!/usr/local/bin/perl -w
1005 +#!/usr/bin/perl -w
1006
1007  require 5.003;
1008  use English;
1009 --- Tk800.022/mkExt.wiget       Tue Jul 27 20:20:24 1999
1010 +++ Tk800.022/mkExt     Wed Nov 15 17:10:09 2000
1011 @@ -1,4 +1,4 @@
1012 -#!/usr/local/bin/perl -w
1013 +#!/usr/bin/perl -w
1014
1015  sub translate
1016  {
1017 --- Tk800.022/mkdist.wiget      Tue Jul 27 20:20:24 1999
1018 +++ Tk800.022/mkdist    Wed Nov 15 17:10:09 2000
1019 @@ -1,4 +1,4 @@
1020 -#!/usr/local/bin/perl -w
1021 +#!/usr/bin/perl -w
1022  use strict;
1023
1024  use ExtUtils::Manifest "/mani/";
1025 --- Tk800.022/motif_hack.wiget  Tue Jul 27 20:20:24 1999
1026 +++ Tk800.022/motif_hack        Wed Nov 15 17:10:09 2000
1027 @@ -1,4 +1,4 @@
1028 -#!/usr/local/bin/perl -w
1029 +#!/usr/bin/perl -w
1030  use Data::Dumper;
1031  use strict;
1032  use Tk;
1033 --- Tk800.022/nested_dialog.wiget       Tue Jul 27 20:20:24 1999
1034 +++ Tk800.022/nested_dialog     Wed Nov 15 17:10:09 2000
1035 @@ -1,4 +1,4 @@
1036 -#!/usr/local/bin/perl -w
1037 +#!/usr/bin/perl -w
1038
1039  use Tk;
1040  use Tk::Dialog;
1041 --- Tk800.022/oddmenu_demo.wiget        Tue Jul 27 20:20:24 1999
1042 +++ Tk800.022/oddmenu_demo      Wed Nov 15 17:10:09 2000
1043 @@ -1,4 +1,4 @@
1044 -#!/usr/local/bin/perl -w
1045 +#!/usr/bin/perl -w
1046  use strict;
1047  use Tk;
1048
1049 --- Tk800.022/pfm.wiget Tue Jul 27 20:21:11 1999
1050 +++ Tk800.022/pfm       Wed Nov 15 17:10:09 2000
1051 @@ -1,4 +1,4 @@
1052 -#!/usr/local/bin/perl -w
1053 +#!/usr/bin/perl -w
1054  use POSIX qw(getcwd);
1055
1056  use Tk;
1057 --- Tk800.022/pictgrid.wiget    Tue Jul 27 20:21:11 1999
1058 +++ Tk800.022/pictgrid  Wed Nov 15 17:10:09 2000
1059 @@ -1,4 +1,4 @@
1060 -#!/usr/local/bin/perl -w
1061 +#!/usr/bin/perl -w
1062  use strict;
1063  use Tk;
1064
1065 --- Tk800.022/pipe_test.wiget   Tue Jul 27 20:21:11 1999
1066 +++ Tk800.022/pipe_test Wed Nov 15 17:10:09 2000
1067 @@ -1,4 +1,4 @@
1068 -#!/usr/local/bin/perl -w
1069 +#!/usr/bin/perl -w
1070  use Tk;
1071
1072  require Tk::IO;
1073 --- Tk800.022/pixmap_test.wiget Tue Jul 27 20:21:11 1999
1074 +++ Tk800.022/pixmap_test       Wed Nov 15 17:10:09 2000
1075 @@ -1,4 +1,4 @@
1076 -#!/usr/local/bin/perl -w
1077 +#!/usr/bin/perl -w
1078  use strict;
1079  use Tk;
1080  require Tk::Pixmap;
1081 --- Tk800.022/popup.wiget       Tue Jul 27 20:21:21 1999
1082 +++ Tk800.022/popup     Wed Nov 15 17:10:09 2000
1083 @@ -1,4 +1,4 @@
1084 -#!/usr/local/bin/perl -w
1085 +#!/usr/bin/perl -w
1086
1087
1088  use Tk;
1089 --- Tk800.022/popup_menu.wiget  Tue Jul 27 20:21:21 1999
1090 +++ Tk800.022/popup_menu        Wed Nov 15 17:10:09 2000
1091 @@ -1,4 +1,4 @@
1092 -#!/usr/local/bin/perl -w
1093 +#!/usr/bin/perl -w
1094  use strict;
1095
1096  use Tk;
1097 --- Tk800.022/prop_demo.wiget   Tue Jul 27 20:21:21 1999
1098 +++ Tk800.022/prop_demo Wed Nov 15 17:10:09 2000
1099 @@ -1,4 +1,4 @@
1100 -#!/usr/local/bin/perl -w
1101 +#!/usr/bin/perl -w
1102
1103  use Tk;
1104
1105 --- Tk800.022/ptked.wiget       Sat Apr 29 10:20:31 2000
1106 +++ Tk800.022/ptked     Wed Nov 15 17:15:07 2000
1107 @@ -1,4 +1,4 @@
1108 -#!/usr/local/bin/perl -w
1109 +#!/usr/bin/perl -w
1110  use strict;
1111  use IO;
1112  use Socket;
1113 --- Tk800.022/ptknews.wiget     Tue Jul 27 20:21:21 1999
1114 +++ Tk800.022/ptknews   Wed Nov 15 17:10:09 2000
1115 @@ -1,4 +1,4 @@
1116 -#!/usr/local/bin/perl -w
1117 +#!/usr/bin/perl -w
1118
1119  use strict;
1120  use Tk;
1121 --- Tk800.022/scale_test.wiget  Tue Jul 27 20:21:21 1999
1122 +++ Tk800.022/scale_test        Wed Nov 15 17:10:09 2000
1123 @@ -1,4 +1,4 @@
1124 -#!/usr/local/bin/perl -w
1125 +#!/usr/bin/perl -w
1126
1127  use Tk;
1128
1129 --- Tk800.022/scrolled_demo.wiget       Tue Jul 27 20:21:21 1999
1130 +++ Tk800.022/scrolled_demo     Wed Nov 15 17:10:09 2000
1131 @@ -1,4 +1,4 @@
1132 -#!/usr/local/bin/perl -w
1133 +#!/usr/bin/perl -w
1134
1135  use Tk;
1136  use strict;
1137 --- Tk800.022/sillymenu.wiget   Tue Jul 27 20:21:21 1999
1138 +++ Tk800.022/sillymenu Wed Nov 15 17:10:09 2000
1139 @@ -1,4 +1,4 @@
1140 -#!/usr/local/bin/perl -w
1141 +#!/usr/bin/perl -w
1142  use strict;
1143  use Tk;
1144
1145 --- Tk800.022/sockets.wiget     Tue Jul 27 20:21:21 1999
1146 +++ Tk800.022/sockets   Wed Nov 15 17:10:09 2000
1147 @@ -1,4 +1,4 @@
1148 -#!/usr/local/bin/perl -w
1149 +#!/usr/bin/perl -w
1150
1151  use IO::Socket;
1152  use Tk::IO;
1153 --- Tk800.022/stripblib.wiget   Tue Jul 27 20:21:21 1999
1154 +++ Tk800.022/stripblib Wed Nov 15 17:10:09 2000
1155 @@ -1,4 +1,4 @@
1156 -#!/usr/local/bin/perl -w
1157 +#!/usr/bin/perl -w
1158  use File::Find;
1159  find(\&strip,'blib/arch');
1160
1161 --- Tk800.022/style_test.wiget  Tue Jul 27 20:21:21 1999
1162 +++ Tk800.022/style_test        Wed Nov 15 17:10:09 2000
1163 @@ -1,4 +1,4 @@
1164 -#!/usr/local/bin/perl -w
1165 +#!/usr/bin/perl -w
1166
1167  use Tk;
1168  use Tk::HList;
1169 --- Tk800.022/submethods.wiget  Tue Jul 27 20:21:21 1999
1170 +++ Tk800.022/submethods        Wed Nov 15 17:10:09 2000
1171 @@ -1,4 +1,4 @@
1172 -#!/usr/local/bin/perl -w
1173 +#!/usr/bin/perl -w
1174  $meth = "pTk/Methods.def";
1175
1176  %sub = ();
1177 --- Tk800.022/symbols.wiget     Tue Jul 27 20:21:21 1999
1178 +++ Tk800.022/symbols   Wed Nov 15 17:10:09 2000
1179 @@ -1,4 +1,4 @@
1180 -#!/usr/local/bin/perl -w
1181 +#!/usr/bin/perl -w
1182
1183  use Config;
1184
1185 --- Tk800.022/table_demo.wiget  Tue Jul 27 20:21:22 1999
1186 +++ Tk800.022/table_demo        Wed Nov 15 17:10:09 2000
1187 @@ -1,4 +1,4 @@
1188 -#!/usr/local/bin/perl -w
1189 +#!/usr/bin/perl -w
1190
1191  use Tk;
1192  use Tk::Table;
1193 --- Tk800.022/tainted.wiget     Tue Jul 27 20:21:22 1999
1194 +++ Tk800.022/tainted   Wed Nov 15 17:10:09 2000
1195 @@ -1,4 +1,4 @@
1196 -#!/usr/local/bin/perl -T
1197 +#!/usr/bin/perl -T
1198
1199  use Tk;
1200
1201 --- Tk800.022/tcl2perl.wiget    Thu Feb 17 21:51:43 2000
1202 +++ Tk800.022/tcl2perl  Wed Nov 15 17:10:09 2000
1203 @@ -1,4 +1,4 @@
1204 -#!/usr/local/bin/perl -w
1205 +#!/usr/bin/perl -w
1206
1207  # Highly experimental tcl -> perl converter, aimed at eventually
1208  # completeing Tix merge
1209 --- Tk800.022/tcolour.wiget     Tue Jul 27 20:21:22 1999
1210 +++ Tk800.022/tcolour   Wed Nov 15 17:10:09 2000
1211 @@ -1,4 +1,4 @@
1212 -#!/usr/local/bin/perl -w
1213 +#!/usr/bin/perl -w
1214
1215  use Tk;
1216
1217 --- Tk800.022/text_demo.wiget   Tue Jul 27 20:21:22 1999
1218 +++ Tk800.022/text_demo Wed Nov 15 17:10:09 2000
1219 @@ -1,4 +1,4 @@
1220 -#!/usr/local/bin/perl -w
1221 +#!/usr/bin/perl -w
1222
1223  use Tk;
1224  require Tk::Text;
1225 --- Tk800.022/tie_basic.wiget   Tue Jul 27 20:21:22 1999
1226 +++ Tk800.022/tie_basic Wed Nov 15 17:10:09 2000
1227 @@ -1,4 +1,4 @@
1228 -#!/usr/local/bin/perl
1229 +#!/usr/bin/perl
1230
1231  # use Memory (2440);
1232
1233 --- Tk800.022/tiehandle.wiget   Tue Jul 27 20:21:22 1999
1234 +++ Tk800.022/tiehandle Wed Nov 15 17:10:09 2000
1235 @@ -1,4 +1,4 @@
1236 -#!/usr/local/bin/perl -w
1237 +#!/usr/bin/perl -w
1238
1239  use Tk;
1240
1241 --- Tk800.022/tietext.wiget     Tue Jul 27 20:21:22 1999
1242 +++ Tk800.022/tietext   Wed Nov 15 17:10:09 2000
1243 @@ -1,4 +1,4 @@
1244 -#!/usr/local/bin/perl -w
1245 +#!/usr/bin/perl -w
1246  use Tk;
1247
1248  {package Tk::Text::Contents;
1249 --- Tk800.022/time.wiget        Tue Jul 27 20:21:22 1999
1250 +++ Tk800.022/time      Wed Nov 15 17:10:09 2000
1251 @@ -1,4 +1,4 @@
1252 -#!/usr/local/bin/perl -w
1253 +#!/usr/bin/perl -w
1254  use Tk::Stats 'Start';
1255  use strict;
1256  use Tk;
1257 --- Tk800.022/tiny.wiget        Sat Apr  1 10:34:00 2000
1258 +++ Tk800.022/tiny      Wed Nov 15 17:10:09 2000
1259 @@ -1,4 +1,4 @@
1260 -#!/usr/local/bin/perl -w
1261 +#!/usr/bin/perl -w
1262  use strict;
1263  use Tk;
1264  use Tk::widgets qw(Button);
1265 --- Tk800.022/tixwm_demo.wiget  Tue Jul 27 20:21:23 1999
1266 +++ Tk800.022/tixwm_demo        Wed Nov 15 17:10:09 2000
1267 @@ -1,4 +1,4 @@
1268 -#!/usr/local/bin/perl -w
1269 +#!/usr/bin/perl -w
1270
1271  use Tk;
1272  use Tk::Dialog;
1273 --- Tk800.022/tkperldoc.wiget   Sun Dec 19 18:28:57 1999
1274 +++ Tk800.022/tkperldoc Wed Nov 15 17:10:09 2000
1275 @@ -1,4 +1,4 @@
1276 -#!/usr/local/bin/perl -w
1277 +#!/usr/bin/perl -w
1278
1279  use strict;
1280  use Tk;
1281 --- Tk800.022/tkpsh.wiget       Tue Jul 27 20:21:25 1999
1282 +++ Tk800.022/tkpsh     Wed Nov 15 17:10:09 2000
1283 @@ -1,4 +1,4 @@
1284 -#!/usr/local/bin/perl -w
1285 +#!/usr/bin/perl -w
1286
1287  require 5.001;
1288  use IO::Handle;
1289 --- Tk800.022/tktail.wiget      Tue Jul 27 20:21:25 1999
1290 +++ Tk800.022/tktail    Wed Nov 15 17:10:09 2000
1291 @@ -1,4 +1,4 @@
1292 -#!/usr/local/bin/perl -w
1293 +#!/usr/bin/perl -w
1294  use strict;
1295  use Tk;
1296  use IO::File;
1297 --- Tk800.022/two_main.wiget    Sat Apr  1 09:33:59 2000
1298 +++ Tk800.022/two_main  Wed Nov 15 17:10:09 2000
1299 @@ -1,4 +1,4 @@
1300 -#!/usr/local/bin/perl -w
1301 +#!/usr/bin/perl -w
1302
1303  use Tk;
1304  use Tk::Xrm;
1305 --- Tk800.022/uninstall.wiget   Tue Jul 27 20:21:25 1999
1306 +++ Tk800.022/uninstall Wed Nov 15 17:10:09 2000
1307 @@ -1,4 +1,4 @@
1308 -#!/usr/local/bin/perl -w
1309 +#!/usr/bin/perl -w
1310  BEGIN {exec('perl5.002',$0,@ARGV)  unless ($] >= 5.002)}
1311  use Config;
1312  use Getopt::Long;
1313 --- Tk800.022/xlib_demo.wiget   Tue Jul 27 20:21:25 1999
1314 +++ Tk800.022/xlib_demo Wed Nov 15 17:10:09 2000
1315 @@ -1,4 +1,4 @@
1316 -#!/usr/local/bin/perl -w
1317 +#!/usr/bin/perl -w
1318
1319  use Tk;
1320