perl-Tk-paths.patch

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