]>
Commit | Line | Data |
---|---|---|
f6a7bbb6 | 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 | |
8586ce88 | 15 | @@ -1,4 +1,4 @@ |
16 | -#!/usr/local/bin/perl | |
17 | +#!/usr/bin/perl | |
18 | ||
f6a7bbb6 | 19 | =head1 NAME |
8586ce88 | 20 | |
f6a7bbb6 | 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 | |
e98aaa03 | 24 | @@ -1,4 +1,4 @@ |
25 | -#!/usr/local/bin/perl -w | |
26 | +#!/usr/bin/perl -w | |
27 | ||
28 | # | |
29 | # Figure 15.5, p153 | |
f6a7bbb6 | 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 | |
e98aaa03 | 33 | @@ -1,4 +1,4 @@ |
34 | -#!/usr/local/bin/perl -w | |
35 | +#!/usr/bin/perl -w | |
36 | ||
37 | # | |
38 | # Figure 16.1, p159 | |
f6a7bbb6 | 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 | |
e98aaa03 | 42 | @@ -1,4 +1,4 @@ |
43 | -#!/usr/local/bin/perl -w | |
44 | +#!/usr/bin/perl -w | |
45 | ||
46 | # | |
47 | # Figure 16.8, p166 | |
f6a7bbb6 | 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 | |
e98aaa03 | 51 | @@ -1,4 +1,4 @@ |
52 | -#!/usr/local/bin/perl -w | |
53 | +#!/usr/bin/perl -w | |
54 | ||
55 | # | |
56 | # Figure 16.2, p161 | |
f6a7bbb6 | 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 | |
e98aaa03 | 60 | @@ -1,4 +1,4 @@ |
61 | -#!/usr/local/bin/perl -w | |
62 | +#!/usr/bin/perl -w | |
63 | ||
64 | # | |
65 | # Figure 16.3, p162 | |
f6a7bbb6 | 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 | |
e98aaa03 | 69 | @@ -1,4 +1,4 @@ |
70 | -#!/usr/local/bin/perl -w | |
71 | +#!/usr/bin/perl -w | |
72 | ||
73 | # | |
74 | # Figure 16.6, p165 | |
f6a7bbb6 | 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 | |
e98aaa03 | 78 | @@ -1,4 +1,4 @@ |
79 | -#!/usr/local/bin/perl -w | |
80 | +#!/usr/bin/perl -w | |
81 | ||
82 | # | |
83 | # Figure 16.7, p166 | |
f6a7bbb6 | 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 | |
e98aaa03 | 87 | @@ -1,4 +1,4 @@ |
88 | -#!/usr/local/bin/perl -w | |
89 | +#!/usr/bin/perl -w | |
90 | ||
91 | # | |
92 | # Figure 16.8, p166 | |
f6a7bbb6 | 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 | |
e98aaa03 | 96 | @@ -1,4 +1,4 @@ |
97 | -#!/usr/local/bin/perl -w | |
98 | +#!/usr/bin/perl -w | |
99 | ||
100 | # | |
101 | # Figure 16.8, p166 | |
f6a7bbb6 | 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 | |
e98aaa03 | 126 | @@ -1,4 +1,4 @@ |
127 | -#!/usr/local/bin/perl -w | |
128 | +#!/usr/bin/perl -w | |
129 | ||
130 | use Tk; | |
131 | require Tk::FileDialog; | |
f6a7bbb6 | 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 | |
e98aaa03 | 135 | @@ -1,4 +1,4 @@ |
136 | -#!/usr/local/bin/perl | |
137 | +#!/usr/bin/perl | |
138 | use Tk; | |
139 | use Tk::TiedListbox; | |
140 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 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); | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 180 | @@ -1,4 +1,4 @@ |
181 | -#!/usr/local/bin/perl -w | |
182 | +#!/usr/bin/perl -w | |
183 | use Tk; | |
184 | use strict; | |
185 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 225 | @@ -1,4 +1,4 @@ |
226 | -#!/usr/local/bin/perl -w | |
227 | +#!/usr/bin/perl -w | |
228 | ||
229 | use Tk::Pretty; | |
230 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 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 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 279 | @@ -1,4 +1,4 @@ |
280 | -#!/usr/local/bin/perl -w | |
281 | +#!/usr/bin/perl -w | |
f6a7bbb6 | 282 | use Tk; |
e98aaa03 | 283 | use Tk::WinPhoto; |
284 | use Cwd; | |
f6a7bbb6 | 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 | |
e98aaa03 | 288 | @@ -1,4 +1,4 @@ |
289 | -#!/usr/local/bin/perl | |
290 | +#!/usr/bin/perl | |
291 | ||
292 | ||
293 | use Tk; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
8cfb8b61 | 324 | @@ -1,4 +1,4 @@ |
f6a7bbb6 | 325 | -#!/usr/local/bin/perl -w |
e98aaa03 | 326 | +#!/usr/bin/perl -w |
327 | use strict; | |
328 | use File::Find; | |
8586ce88 | 329 | use Getopt::Std; |
f6a7bbb6 | 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 | |
e98aaa03 | 333 | @@ -1,4 +1,4 @@ |
8586ce88 | 334 | -#!/usr/local/bin/perl -w |
335 | +#!/usr/bin/perl -w | |
336 | use Tk; | |
337 | require Tk::TextUndo; | |
e98aaa03 | 338 | |
f6a7bbb6 | 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 | |
8cfb8b61 AF |
342 | @@ -1,4 +1,4 @@ |
343 | -#!/usr/local/bin/perl -w | |
344 | +#!/usr/bin/perl -w | |
e98aaa03 | 345 | |
8586ce88 | 346 | use Tk; |
347 | use strict; | |
f6a7bbb6 | 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 | |
8cfb8b61 AF |
351 | @@ -1,4 +1,4 @@ |
352 | -#!/usr/local/bin/perl -w | |
353 | +#!/usr/bin/perl -w | |
e98aaa03 | 354 | |
8586ce88 | 355 | use Tk; |
356 | use Devel::Leak; | |
f6a7bbb6 | 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 | |
e98aaa03 | 360 | @@ -1,4 +1,4 @@ |
361 | -#!/usr/local/bin/perl -w | |
362 | +#!/usr/bin/perl -w | |
8586ce88 | 363 | use Tk; |
8cfb8b61 | 364 | |
8586ce88 | 365 | my $mw = MainWindow->new; |
f6a7bbb6 | 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 | |
e98aaa03 | 369 | @@ -1,4 +1,4 @@ |
370 | -#!/usr/local/bin/perl -w | |
371 | +#!/usr/bin/perl -w | |
372 | ||
8586ce88 | 373 | use Tk; |
8cfb8b61 | 374 | |
f6a7bbb6 | 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 | |
8cfb8b61 | 378 | @@ -1,4 +1,4 @@ |
8586ce88 | 379 | -#!/usr/local/bin/perl |
380 | +#!/usr/bin/perl | |
e98aaa03 | 381 | |
8586ce88 | 382 | # use Memory (2440); |
e98aaa03 | 383 | |
f6a7bbb6 | 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 | |
e98aaa03 | 387 | @@ -1,4 +1,4 @@ |
f6a7bbb6 | 388 | -#!/usr/local/bin/perl |
389 | +#!/usr/bin/perl | |
e98aaa03 | 390 | |
8586ce88 | 391 | %def = (); |
392 | %need = (); | |
f6a7bbb6 | 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 | |
8cfb8b61 AF |
396 | @@ -1,4 +1,4 @@ |
397 | -#!/usr/local/bin/perl | |
398 | +#!/usr/bin/perl | |
399 | ||
8586ce88 | 400 | while (<>) |
401 | { | |
f6a7bbb6 | 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 | |
e98aaa03 | 405 | @@ -1,4 +1,4 @@ |
8586ce88 | 406 | -#!/usr/local/bin/perl |
407 | +#!/usr/bin/perl | |
8cfb8b61 | 408 | |
8586ce88 | 409 | @files = @ARGV; |
8cfb8b61 | 410 | |
f6a7bbb6 | 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 | |
e98aaa03 | 414 | @@ -1,4 +1,4 @@ |
415 | -#!/usr/local/bin/perl -w | |
416 | +#!/usr/bin/perl -w | |
8586ce88 | 417 | use strict; |
418 | use File::Find; | |
8cfb8b61 | 419 | |
f6a7bbb6 | 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 | |
e98aaa03 | 423 | @@ -1,4 +1,4 @@ |
424 | -#!/usr/local/bin/perl -w | |
425 | +#!/usr/bin/perl -w | |
426 | ||
8586ce88 | 427 | %done = (); |
428 | %defs = (); | |
f6a7bbb6 | 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 | |
e98aaa03 | 432 | @@ -1,4 +1,4 @@ |
f6a7bbb6 | 433 | -#!/usr/local/bin/perl |
434 | +#!/usr/bin/perl | |
e98aaa03 | 435 | |
8cfb8b61 | 436 | use File::Find; |
e98aaa03 | 437 | |
f6a7bbb6 | 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 | |
e98aaa03 | 441 | @@ -1,4 +1,4 @@ |
442 | -#!/usr/local/bin/perl -w | |
443 | +#!/usr/bin/perl -w | |
8586ce88 | 444 | use Tk; |
445 | use Tk::Menubar; | |
8cfb8b61 | 446 | |
f6a7bbb6 | 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 | |
e98aaa03 | 450 | @@ -1,4 +1,4 @@ |
451 | -#!/usr/local/bin/perl -w | |
452 | +#!/usr/bin/perl -w | |
8586ce88 | 453 | use Config; |
454 | my $make = $Config{'make'}; | |
455 | my @para; | |
f6a7bbb6 | 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 | |
e98aaa03 | 459 | @@ -1,4 +1,4 @@ |
460 | -#!/usr/local/bin/perl -w | |
461 | +#!/usr/bin/perl -w | |
462 | use strict; | |
8586ce88 | 463 | use Tk; |
464 | use Tk::LabEntry; | |
f6a7bbb6 | 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 | |
e98aaa03 | 468 | @@ -1,4 +1,4 @@ |
469 | -#!/usr/local/bin/perl -w | |
470 | +#!/usr/bin/perl -w | |
e98aaa03 | 471 | |
8586ce88 | 472 | use Tk; |
8cfb8b61 | 473 | |
f6a7bbb6 | 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 | |
e98aaa03 | 477 | @@ -1,4 +1,4 @@ |
478 | -#!/usr/local/bin/perl -w | |
479 | +#!/usr/bin/perl -w | |
8cfb8b61 | 480 | |
8586ce88 | 481 | use Tk; |
8cfb8b61 | 482 | |
f6a7bbb6 | 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 | |
8586ce88 | 486 | @@ -1,4 +1,4 @@ |
487 | -#!/usr/local/bin/perl | |
488 | +#!/usr/bin/perl | |
8cfb8b61 | 489 | |
8586ce88 | 490 | use Tk; |
491 | use Tk::Pretty; | |
f6a7bbb6 | 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 | |
e98aaa03 | 495 | @@ -1,4 +1,4 @@ |
496 | -#!/usr/local/bin/perl -w | |
497 | +#!/usr/bin/perl -w | |
f6a7bbb6 | 498 | use File::Find; |
499 | use Config; | |
8586ce88 | 500 | my @libs; |
f6a7bbb6 | 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 | |
8cfb8b61 AF |
504 | @@ -1,4 +1,4 @@ |
505 | -#!/usr/local/bin/perl -w | |
506 | +#!/usr/bin/perl -w | |
8586ce88 | 507 | |
508 | use ExtUtils::Manifest "/mani/"; | |
509 | ||
f6a7bbb6 | 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 | |
8cfb8b61 AF |
513 | @@ -1,4 +1,4 @@ |
514 | -#!/usr/local/bin/perl -w | |
515 | +#!/usr/bin/perl -w | |
8cfb8b61 | 516 | use strict; |
f6a7bbb6 | 517 | use Tk; |
8586ce88 | 518 | use Tk::widgets qw(Tree Menubar); |
f6a7bbb6 | 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 | |
8cfb8b61 AF |
522 | @@ -1,4 +1,4 @@ |
523 | -#!/usr/local/bin/perl -w | |
524 | +#!/usr/bin/perl -w | |
8cfb8b61 | 525 | use File::Find; |
8586ce88 | 526 | find(\&wanted,'.'); |
e98aaa03 | 527 | |
f6a7bbb6 | 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 | |
e98aaa03 | 531 | @@ -1,4 +1,4 @@ |
8cfb8b61 AF |
532 | -#!/usr/local/bin/perl -w |
533 | +#!/usr/bin/perl -w | |
8586ce88 | 534 | # Show a Tk canvas bug: |
535 | # when scrolling a canvas, clipping for embedded windows | |
536 | # uses the embedded windows parent, not the canvas. | |
f6a7bbb6 | 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 | |
8cfb8b61 AF |
540 | @@ -1,4 +1,4 @@ |
541 | -#!/usr/local/bin/perl -w | |
542 | +#!/usr/bin/perl -w | |
f6a7bbb6 | 543 | use Config; |
8586ce88 | 544 | my $sfx = $Config{'lib_ext'}; |
545 | foreach my $dir (@INC) | |
f6a7bbb6 | 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 | |
e98aaa03 | 549 | @@ -1,4 +1,4 @@ |
550 | -#!/usr/local/bin/perl -w | |
551 | +#!/usr/bin/perl -w | |
8586ce88 | 552 | use IO::File; |
e98aaa03 | 553 | |
8586ce88 | 554 | while (<>) |
f6a7bbb6 | 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 | |
e98aaa03 | 567 | @@ -1,4 +1,4 @@ |
568 | -#!/usr/local/bin/perl -w | |
569 | +#!/usr/bin/perl -w | |
8cfb8b61 AF |
570 | use Tk; |
571 | ||
8586ce88 | 572 | my $mw = MainWindow->new; |
f6a7bbb6 | 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 | |
e98aaa03 | 576 | @@ -1,4 +1,4 @@ |
577 | -#!/usr/local/bin/perl -w | |
578 | +#!/usr/bin/perl -w | |
8586ce88 | 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. | |
f6a7bbb6 | 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 | |
e98aaa03 | 585 | @@ -1,4 +1,4 @@ |
586 | -#!/usr/local/bin/perl -w | |
587 | +#!/usr/bin/perl -w | |
8586ce88 | 588 | # |
589 | # ColorEditor demonstration. | |
590 | ||
f6a7bbb6 | 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 | |
8cfb8b61 AF |
594 | @@ -1,4 +1,4 @@ |
595 | -#!/usr/local/bin/perl -w | |
596 | +#!/usr/bin/perl -w | |
8586ce88 | 597 | |
598 | ||
599 | use English; | |
f6a7bbb6 | 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 | |
e98aaa03 | 627 | @@ -1,4 +1,4 @@ |
628 | -#!/usr/local/bin/perl -w | |
629 | +#!/usr/bin/perl -w | |
630 | ||
8586ce88 | 631 | # Demonstrate how to use Dialog to create and manipulate dialog objects. |
632 | # lusol@Lehigh.EDU 95/06/14 | |
f6a7bbb6 | 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 | |
e98aaa03 | 636 | @@ -1,4 +1,4 @@ |
637 | -#!/usr/local/bin/perl -w | |
638 | +#!/usr/bin/perl -w | |
8586ce88 | 639 | # |
f6a7bbb6 | 640 | # Simple Tk script to create a button that prints "Hello, world". Click on |
8586ce88 | 641 | # the button to terminate the program. |
f6a7bbb6 | 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 | |
e98aaa03 | 645 | @@ -1,4 +1,4 @@ |
646 | -#!/usr/local/bin/perl | |
647 | +#!/usr/bin/perl | |
648 | ||
8586ce88 | 649 | # A nice interface to "xset" to change X server settings |
650 | # | |
f6a7bbb6 | 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 | |
e98aaa03 | 654 | @@ -1,4 +1,4 @@ |
8586ce88 | 655 | -#!/usr/local/bin/perl -wT |
656 | +#!/usr/bin/perl -wT | |
657 | # | |
f6a7bbb6 | 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 | |
e98aaa03 | 663 | @@ -1,4 +1,4 @@ |
664 | -#!/usr/local/bin/perl -w | |
665 | +#!/usr/bin/perl -w | |
8586ce88 | 666 | # |
f6a7bbb6 | 667 | # This script was written as an entry in Tom LaStrange's rolodex benchmark. |
8586ce88 | 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. |
f6a7bbb6 | 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 | |
e98aaa03 | 672 | @@ -1,4 +1,4 @@ |
673 | -#!/usr/local/bin/perl -w | |
674 | +#!/usr/bin/perl -w | |
8586ce88 | 675 | # |
f6a7bbb6 | 676 | # This script generates a counter with start and stop buttons. Exit with |
8586ce88 | 677 | # Ctrl/c or Ctrl/q. |
f6a7bbb6 | 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 | |
e98aaa03 | 681 | @@ -1,4 +1,4 @@ |
682 | -#!/usr/local/bin/perl -w | |
683 | +#!/usr/bin/perl -w | |
8586ce88 | 684 | # |
685 | # Sample program to get Tom Christiansen going with Perl/Tk. | |
e98aaa03 | 686 | |
f6a7bbb6 | 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 | |
e98aaa03 | 690 | @@ -1,4 +1,4 @@ |
691 | -#!/usr/local/bin/perl -w | |
692 | +#!/usr/bin/perl -w | |
693 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 699 | @@ -1,4 +1,4 @@ |
700 | -#!/usr/local/bin/perl -w | |
701 | +#!/usr/bin/perl -w | |
8586ce88 | 702 | # |
703 | # This script demonstrates the various widgets provided by Tk, along with many of the features of the Tk toolkit. This file | |
f6a7bbb6 | 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 | |
e98aaa03 | 708 | @@ -1,4 +1,4 @@ |
709 | -#!/usr/local/bin/perl -w | |
710 | +#!/usr/bin/perl -w | |
711 | use Tk; | |
712 | require Tk::Text; | |
713 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 717 | @@ -1,4 +1,4 @@ |
718 | -#!/usr/local/bin/perl -w | |
719 | +#!/usr/bin/perl -w | |
720 | ||
721 | ||
722 | use Tk; | |
f6a7bbb6 | 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 | |
e98aaa03 | 726 | @@ -1,4 +1,4 @@ |
727 | -#!/usr/local/bin/perl | |
728 | +#!/usr/bin/perl | |
729 | ||
730 | use ExtUtils::Manifest "/mani/"; | |
731 | use Cwd; | |
f6a7bbb6 | 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 | |
e98aaa03 | 735 | @@ -1,4 +1,4 @@ |
736 | -#!/usr/local/bin/perl -w | |
737 | +#!/usr/bin/perl -w | |
738 | ||
739 | package StickyButton; | |
740 | require Tk::Widget; | |
f6a7bbb6 | 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 | |
e98aaa03 | 744 | @@ -1,4 +1,4 @@ |
745 | -#!/usr/local/bin/perl -w | |
746 | +#!/usr/bin/perl -w | |
747 | # | |
f6a7bbb6 | 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 | |
e98aaa03 | 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')); | |
f6a7bbb6 | 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 | |
e98aaa03 | 762 | @@ -1,4 +1,4 @@ |
f6a7bbb6 | 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 | |
e98aaa03 | 774 | |
775 | use Tk; | |
776 | use IO::File; | |
f6a7bbb6 | 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 | |
e98aaa03 | 780 | @@ -1,4 +1,4 @@ |
781 | -#!/usr/local/bin/perl -w | |
782 | +#!/usr/bin/perl -w | |
783 | ||
784 | use Tk; | |
785 | use Tk::ErrorDialog; | |
f6a7bbb6 | 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 | |
e98aaa03 | 789 | @@ -1,4 +1,4 @@ |
790 | -#!/usr/local/bin/perl -w | |
791 | +#!/usr/bin/perl -w | |
792 | use Tk; | |
793 | use strict; | |
794 | ||
f6a7bbb6 | 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 | |
8586ce88 | 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 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 807 | @@ -1,4 +1,4 @@ |
808 | -#!/usr/local/bin/perl -w | |
809 | +#!/usr/bin/perl -w | |
810 | ||
811 | use File::Find; | |
812 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 816 | @@ -1,4 +1,4 @@ |
817 | -#!/usr/local/bin/perl | |
818 | +#!/usr/bin/perl | |
819 | ||
820 | use ExtUtils::Manifest "/mani/"; | |
821 | use Cwd; | |
f6a7bbb6 | 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 | |
e98aaa03 | 825 | @@ -1,4 +1,4 @@ |
826 | -#!/usr/local/bin/perl -w | |
827 | +#!/usr/bin/perl -w | |
828 | use Tk; | |
8cfb8b61 | 829 | use Tk::X11Font; |
e98aaa03 | 830 | use Tk::ROText; |
f6a7bbb6 | 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 | |
e98aaa03 | 834 | @@ -1,4 +1,4 @@ |
835 | -#!/usr/local/bin/perl -w | |
836 | +#!/usr/bin/perl -w | |
837 | ||
838 | ||
839 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 843 | @@ -1,4 +1,4 @@ |
844 | -#!/usr/local/bin/perl -w | |
8586ce88 | 845 | +#!/usr/bin/perl -w |
846 | use strict; | |
847 | use Tk; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
8586ce88 | 861 | @@ -1,4 +1,4 @@ |
862 | -#!/usr/local/bin/perl -w | |
863 | +#!/usr/bin/perl -w | |
864 | ||
865 | ############################################################################### | |
866 | # Copyright (c) 1999 Greg London | |
f6a7bbb6 | 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 | |
e98aaa03 | 870 | @@ -1,4 +1,4 @@ |
871 | -#!/usr/local/bin/perl -w | |
872 | +#!/usr/bin/perl -w | |
873 | ||
874 | use Tk; | |
875 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 879 | @@ -1,4 +1,4 @@ |
880 | -#!/usr/local/bin/perl -w | |
881 | +#!/usr/bin/perl -w | |
882 | ||
883 | use Tk; | |
884 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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__); | |
f6a7bbb6 | 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 | |
e98aaa03 | 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(); | |
f6a7bbb6 | 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 | |
e98aaa03 | 915 | @@ -1,4 +1,4 @@ |
916 | -#!/usr/local/bin/perl -w | |
917 | +#!/usr/bin/perl -w | |
918 | ||
919 | use File::Find; | |
920 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 933 | @@ -1,4 +1,4 @@ |
934 | -#!/usr/local/bin/perl -w | |
935 | +#!/usr/bin/perl -w | |
936 | use Tk; | |
937 | require Tk::HList; | |
938 | ||
f6a7bbb6 | 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 | |
8586ce88 | 942 | @@ -1,4 +1,4 @@ |
943 | -#!/usr/local/bin/perl -w | |
944 | +#!/usr/bin/perl -w | |
945 | ||
946 | use Tk; | |
947 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 951 | @@ -1,4 +1,4 @@ |
952 | -#!/usr/local/bin/perl -w | |
953 | +#!/usr/bin/perl -w | |
954 | ||
955 | use Tk; | |
956 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 960 | @@ -1,4 +1,4 @@ |
961 | -#!/usr/local/bin/perl -w | |
962 | +#!/usr/bin/perl -w | |
963 | ||
964 | use Tk; | |
965 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 969 | @@ -1,4 +1,4 @@ |
970 | -#!/usr/local/bin/perl -w | |
971 | +#!/usr/bin/perl -w | |
972 | use strict; | |
f6a7bbb6 | 973 | use Tk; |
e98aaa03 | 974 | |
f6a7bbb6 | 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 | |
e98aaa03 | 978 | @@ -1,4 +1,4 @@ |
979 | -#!/usr/local/bin/perl -w | |
980 | +#!/usr/bin/perl -w | |
981 | ||
982 | use File::Find; | |
983 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 987 | @@ -1,4 +1,4 @@ |
988 | -#!/usr/local/bin/perl -w | |
989 | +#!/usr/bin/perl -w | |
990 | ||
991 | use Tk; | |
992 | require Tk::LabEntry; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1005 | @@ -1,4 +1,4 @@ |
1006 | -#!/usr/local/bin/perl -w | |
1007 | +#!/usr/bin/perl -w | |
1008 | ||
1009 | use Tk; | |
8cfb8b61 | 1010 | use Devel::Leak; |
f6a7bbb6 | 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 | |
e98aaa03 | 1014 | @@ -1,4 +1,4 @@ |
1015 | -#!/usr/local/bin/perl -w | |
1016 | +#!/usr/bin/perl -w | |
1017 | ||
1018 | use Tk; | |
1019 | ||
f6a7bbb6 | 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 | |
8586ce88 | 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 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1041 | @@ -1,4 +1,4 @@ |
1042 | -#!/usr/local/bin/perl -w | |
1043 | +#!/usr/bin/perl -w | |
1044 | ||
1045 | use Tk; | |
1046 | use Tk::Table; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1050 | @@ -1,4 +1,4 @@ |
1051 | -#!/usr/local/bin/perl -w | |
1052 | +#!/usr/bin/perl -w | |
1053 | ||
1054 | use Tk; | |
1055 | use Tk::Xlib; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1059 | @@ -1,4 +1,4 @@ |
1060 | -#!/usr/local/bin/perl -w | |
1061 | +#!/usr/bin/perl -w | |
1062 | ||
1063 | use Tk; | |
1064 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 1068 | @@ -1,4 +1,4 @@ |
1069 | -#!/usr/local/bin/perl -w | |
1070 | +#!/usr/bin/perl -w | |
1071 | use Tk; | |
1072 | use strict; | |
1073 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 1077 | @@ -1,4 +1,4 @@ |
1078 | -#!/usr/local/bin/perl -w | |
1079 | +#!/usr/bin/perl -w | |
f6a7bbb6 | 1080 | |
e98aaa03 | 1081 | require 5.003; |
1082 | use English; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1086 | @@ -1,4 +1,4 @@ |
1087 | -#!/usr/local/bin/perl -w | |
1088 | +#!/usr/bin/perl -w | |
1089 | ||
1090 | sub translate | |
1091 | { | |
f6a7bbb6 | 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 | |
e98aaa03 | 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/"; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1113 | @@ -1,4 +1,4 @@ |
1114 | -#!/usr/local/bin/perl -w | |
1115 | +#!/usr/bin/perl -w | |
1116 | ||
1117 | use Tk; | |
1118 | use Tk::Dialog; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1122 | @@ -1,4 +1,4 @@ |
1123 | -#!/usr/local/bin/perl -w | |
1124 | +#!/usr/bin/perl -w | |
1125 | use strict; | |
1126 | use Tk; | |
1127 | ||
f6a7bbb6 | 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 | |
8586ce88 | 1131 | @@ -1,4 +1,4 @@ |
1132 | -#!/usr/local/bin/perl -w | |
1133 | +#!/usr/bin/perl -w | |
f6a7bbb6 | 1134 | use open IO => ':bytes'; # Avoid UTF-8 issues with some perl5.8.0 (RedHat) |
8586ce88 | 1135 | use Carp; |
f6a7bbb6 | 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 | |
8586ce88 | 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>) | |
f6a7bbb6 | 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 | |
8586ce88 | 1149 | @@ -1,4 +1,4 @@ |
1150 | -#!/usr/local/bin/perl | |
1151 | +#!/usr/bin/perl | |
1152 | ||
1153 | sub count | |
1154 | { | |
f6a7bbb6 | 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 | |
8586ce88 | 1167 | @@ -1,4 +1,4 @@ |
1168 | -#!/usr/local/bin/perl -w | |
1169 | +#!/usr/bin/perl -w | |
1170 | ||
1171 | BEGIN { require Exporter }; | |
1172 | ||
f6a7bbb6 | 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 | |
8586ce88 | 1176 | @@ -1,4 +1,4 @@ |
1177 | -#!/usr/local/bin/perl -w | |
1178 | +#!/usr/bin/perl -w | |
1179 | ||
1180 | BEGIN { require Exporter }; | |
1181 | ||
f6a7bbb6 | 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 | |
8586ce88 | 1185 | @@ -1,4 +1,4 @@ |
1186 | -#!/usr/local/bin/perl -w | |
1187 | +#!/usr/bin/perl -w | |
1188 | ||
1189 | ||
1190 | %table = (); | |
f6a7bbb6 | 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 | |
8586ce88 | 1194 | @@ -1,4 +1,4 @@ |
1195 | -#!/usr/local/bin/perl -w | |
1196 | +#!/usr/bin/perl -w | |
1197 | use strict; | |
1198 | ||
1199 | use File::Find; | |
f6a7bbb6 | 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 | |
8586ce88 | 1203 | @@ -1,4 +1,4 @@ |
1204 | -#!/usr/local/bin/perl -w | |
1205 | +#!/usr/bin/perl -w | |
1206 | ||
1207 | my %mTk; | |
1208 | my $dir; | |
f6a7bbb6 | 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 | |
8586ce88 | 1212 | @@ -1,4 +1,4 @@ |
1213 | -#!/usr/local/bin/perl -w | |
1214 | +#!/usr/bin/perl -w | |
1215 | ||
1216 | use strict; | |
1217 | ||
f6a7bbb6 | 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 | |
8586ce88 | 1221 | @@ -1,4 +1,4 @@ |
1222 | -#!/usr/local/bin/perl -w | |
1223 | +#!/usr/bin/perl -w | |
1224 | ||
1225 | use strict; | |
1226 | ||
f6a7bbb6 | 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 | |
8586ce88 | 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"; | |
f6a7bbb6 | 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 | |
8586ce88 | 1239 | @@ -1,4 +1,4 @@ |
1240 | -#!/usr/local/bin/perl -w | |
1241 | +#!/usr/bin/perl -w | |
f6a7bbb6 | 1242 | use strict; |
1243 | ||
8586ce88 | 1244 | |
f6a7bbb6 | 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 | |
8586ce88 | 1248 | @@ -1,4 +1,4 @@ |
1249 | -#!/usr/local/bin/perl -w | |
1250 | +#!/usr/bin/perl -w | |
1251 | ||
1252 | $file = shift; | |
1253 | ||
f6a7bbb6 | 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 | |
8586ce88 | 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"; | |
f6a7bbb6 | 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 | |
8586ce88 | 1266 | @@ -1,4 +1,4 @@ |
1267 | -#!/usr/local/bin/perl -w | |
1268 | +#!/usr/bin/perl -w | |
1269 | ||
1270 | $dst = shift; | |
1271 | ||
f6a7bbb6 | 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 | |
8586ce88 | 1284 | @@ -1,4 +1,4 @@ |
1285 | -#!/usr/local/bin/perl -w | |
1286 | +#!/usr/bin/perl -w | |
1287 | ||
1288 | sub fail | |
1289 | { | |
f6a7bbb6 | 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 | |
8586ce88 | 1293 | @@ -1,4 +1,4 @@ |
1294 | -#!/usr/local/bin/perl -w | |
1295 | +#!/usr/bin/perl -w | |
1296 | ||
f6a7bbb6 | 1297 | use strict; |
8586ce88 | 1298 | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1311 | @@ -1,4 +1,4 @@ |
1312 | -#!/usr/local/bin/perl -w | |
1313 | +#!/usr/bin/perl -w | |
1314 | use Tk; | |
1315 | ||
1316 | require Tk::IO; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
8586ce88 | 1341 | @@ -1,4 +1,4 @@ |
1342 | -#!/usr/local/bin/perl -w | |
1343 | +#!/usr/bin/perl -w | |
f6a7bbb6 | 1344 | use strict; |
8586ce88 | 1345 | use Getopt::Std; |
1346 | use ExtUtils::Manifest "/mani/"; | |
f6a7bbb6 | 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 | |
8586ce88 | 1350 | @@ -1,4 +1,4 @@ |
1351 | -#!/usr/local/bin/perl -w | |
1352 | +#!/usr/bin/perl -w | |
1353 | use strict; | |
f6a7bbb6 | 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 | |
8586ce88 | 1359 | @@ -1,4 +1,4 @@ |
1360 | -#!/usr/local/bin/perl -w | |
1361 | +#!/usr/bin/perl -w | |
1362 | use blib; | |
f6a7bbb6 | 1363 | use Tk; |
8586ce88 | 1364 | use strict; |
f6a7bbb6 | 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 | |
8586ce88 | 1368 | @@ -1,4 +1,4 @@ |
1369 | -#!/usr/local/bin/perl -w | |
1370 | +#!/usr/bin/perl -w | |
1371 | use strict; | |
1372 | use Tk; | |
1373 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 1377 | @@ -1,4 +1,4 @@ |
1378 | -#!/usr/local/bin/perl -w | |
1379 | +#!/usr/bin/perl -w | |
1380 | ||
1381 | ||
1382 | use Tk; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1386 | @@ -1,4 +1,4 @@ |
1387 | -#!/usr/local/bin/perl -w | |
1388 | +#!/usr/bin/perl -w | |
1389 | use strict; | |
1390 | ||
1391 | use Tk; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1395 | @@ -1,4 +1,4 @@ |
1396 | -#!/usr/local/bin/perl -w | |
1397 | +#!/usr/bin/perl -w | |
1398 | ||
1399 | use Tk; | |
1400 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 1404 | @@ -1,4 +1,4 @@ |
1405 | -#!/usr/local/bin/perl -w | |
1406 | +#!/usr/bin/perl -w | |
8cfb8b61 | 1407 | use strict; |
8cfb8b61 | 1408 | use Socket; |
f6a7bbb6 | 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 | |
e98aaa03 | 1413 | @@ -1,4 +1,4 @@ |
1414 | -#!/usr/local/bin/perl -w | |
1415 | +#!/usr/bin/perl -w | |
1416 | ||
1417 | use strict; | |
1418 | use Tk; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1422 | @@ -1,4 +1,4 @@ |
1423 | -#!/usr/local/bin/perl -w | |
1424 | +#!/usr/bin/perl -w | |
1425 | ||
1426 | use Tk; | |
1427 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 1431 | @@ -1,4 +1,4 @@ |
1432 | -#!/usr/local/bin/perl -w | |
1433 | +#!/usr/bin/perl -w | |
1434 | ||
1435 | use Tk; | |
1436 | use strict; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1440 | @@ -1,4 +1,4 @@ |
1441 | -#!/usr/local/bin/perl -w | |
1442 | +#!/usr/bin/perl -w | |
1443 | use strict; | |
1444 | use Tk; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 1476 | @@ -1,4 +1,4 @@ |
1477 | -#!/usr/local/bin/perl -w | |
1478 | +#!/usr/bin/perl -w | |
1479 | ||
1480 | use Tk; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1485 | @@ -1,4 +1,4 @@ |
1486 | -#!/usr/local/bin/perl -w | |
1487 | +#!/usr/bin/perl -w | |
1488 | $meth = "pTk/Methods.def"; | |
1489 | ||
1490 | %sub = (); | |
f6a7bbb6 | 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 | |
e98aaa03 | 1494 | @@ -1,4 +1,4 @@ |
1495 | -#!/usr/local/bin/perl -w | |
1496 | +#!/usr/bin/perl -w | |
1497 | ||
1498 | use Config; | |
1499 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 1524 | @@ -1,4 +1,4 @@ |
1525 | -#!/usr/local/bin/perl -w | |
1526 | +#!/usr/bin/perl -w | |
1527 | ||
1528 | use Tk; | |
1529 | use Tk::Table; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1533 | @@ -1,4 +1,4 @@ |
1534 | -#!/usr/local/bin/perl -T | |
1535 | +#!/usr/bin/perl -T | |
1536 | ||
1537 | use Tk; | |
1538 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 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 | |
f6a7bbb6 | 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 | |
e98aaa03 | 1551 | @@ -1,4 +1,4 @@ |
1552 | -#!/usr/local/bin/perl -w | |
1553 | +#!/usr/bin/perl -w | |
1554 | ||
1555 | use Tk; | |
1556 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 1569 | @@ -1,4 +1,4 @@ |
1570 | -#!/usr/local/bin/perl -w | |
1571 | +#!/usr/bin/perl -w | |
1572 | ||
1573 | use Tk; | |
1574 | require Tk::Text; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1578 | @@ -1,4 +1,4 @@ |
f6a7bbb6 | 1579 | -#!/usr/local/bin/perl |
1580 | +#!/usr/bin/perl | |
e98aaa03 | 1581 | |
1582 | # use Memory (2440); | |
1583 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 1587 | @@ -1,4 +1,4 @@ |
1588 | -#!/usr/local/bin/perl -w | |
1589 | +#!/usr/bin/perl -w | |
1590 | ||
1591 | use Tk; | |
1592 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1614 | @@ -1,4 +1,4 @@ |
1615 | -#!/usr/local/bin/perl -w | |
1616 | +#!/usr/bin/perl -w | |
1617 | use strict; | |
1618 | use Tk; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1623 | @@ -1,4 +1,4 @@ |
1624 | -#!/usr/local/bin/perl -w | |
1625 | +#!/usr/bin/perl -w | |
1626 | ||
1627 | use Tk; | |
1628 | use Tk::Dialog; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1641 | @@ -1,4 +1,4 @@ |
1642 | -#!/usr/local/bin/perl -w | |
1643 | +#!/usr/bin/perl -w | |
1644 | ||
1645 | use strict; | |
1646 | use Tk; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 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; | |
f6a7bbb6 | 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 | |
e98aaa03 | 1668 | @@ -1,4 +1,4 @@ |
1669 | -#!/usr/local/bin/perl -w | |
1670 | +#!/usr/bin/perl -w | |
1671 | ||
1672 | use Tk; | |
8cfb8b61 | 1673 | use Tk::Xrm; |
f6a7bbb6 | 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 | |
e98aaa03 | 1677 | @@ -1,4 +1,4 @@ |
1678 | -#!/usr/local/bin/perl -w | |
1679 | +#!/usr/bin/perl -w | |
f6a7bbb6 | 1680 | BEGIN {exec('perl5.002',$0,@ARGV) unless ($] >= 5.002)} |
e98aaa03 | 1681 | use Config; |
1682 | use Getopt::Long; | |
f6a7bbb6 | 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 | |
8586ce88 | 1686 | @@ -1,4 +1,4 @@ |
1687 | -#!/usr/local/bin/perl -w | |
1688 | +#!/usr/bin/perl -w | |
1689 | use strict; | |
1690 | use Tk; | |
1691 | ||
f6a7bbb6 | 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 | |
e98aaa03 | 1695 | @@ -1,4 +1,4 @@ |
1696 | -#!/usr/local/bin/perl -w | |
1697 | +#!/usr/bin/perl -w | |
1698 | ||
1699 | use Tk; | |
1700 |