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