perl-Tk-paths.patch

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