perl-Tk-paths.patch

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