perl 4.0 patch 32: patch #20, continued
[perl.git] / os2 / tests.dif
1 diff -cbBwr perl-4.019/t/base/term.t new/t/base/term.t
2 *** perl-4.019/t/base/term.t    Wed Mar 20 08:47:14 1991
3 --- new/t/base/term.t   Sun Jun 16 20:39:50 1991
4 ***************
5 *** 29,35 ****
6
7   # check <> pseudoliteral
8
9 ! open(try, "/dev/null") || (die "Can't open /dev/null.");
10   if (<try> eq '') {
11       print "ok 5\n";
12   }
13 --- 29,35 ----
14
15   # check <> pseudoliteral
16
17 ! open(try, "nul") || (die "Can't open /dev/null.");
18   if (<try> eq '') {
19       print "ok 5\n";
20   }
21 diff -cbBwr perl-4.019/t/cmd/while.t new/t/cmd/while.t
22 *** perl-4.019/t/cmd/while.t    Wed Mar 20 08:46:28 1991
23 --- new/t/cmd/while.t   Sun Jun 16 20:52:36 1991
24 ***************
25 *** 90,96 ****
26   if (!eof || $bad) {print "not ok 8\n";} else {print "ok 8\n";}
27   if (!$badcont) {print "ok 9\n";} else {print "not ok 9\n";}
28
29 ! `/bin/rm -f Cmd.while.tmp`;
30
31   #$x = 0;
32   #while (1) {
33 --- 90,97 ----
34   if (!eof || $bad) {print "not ok 8\n";} else {print "ok 8\n";}
35   if (!$badcont) {print "ok 9\n";} else {print "not ok 9\n";}
36
37 ! close(fh);
38 ! `del Cmd.while.tmp`;
39
40   #$x = 0;
41   #while (1) {
42 diff -cbBwr perl-4.019/t/comp/cpp.t new/t/comp/cpp.t
43 *** perl-4.019/t/comp/cpp.t     Wed Mar 20 08:48:44 1991
44 --- new/t/comp/cpp.t    Sun Jun 16 20:54:00 1991
45 ***************
46 *** 32,39 ****
47   print TRY '#define OK "ok 3\n"' . "\n";
48   close TRY;
49
50 ! $pwd=`pwd`;
51   $pwd =~ s/\n//;
52 ! $x = `./perl -P Comp.cpp.tmp`;
53   print $x;
54   unlink "Comp.cpp.tmp", "Comp.cpp.inc";
55 --- 32,39 ----
56   print TRY '#define OK "ok 3\n"' . "\n";
57   close TRY;
58
59 ! $pwd=`cd`;
60   $pwd =~ s/\n//;
61 ! $x = `perl -P Comp.cpp.tmp`;
62   print $x;
63   unlink "Comp.cpp.tmp", "Comp.cpp.inc";
64 diff -cbBwr perl-4.019/t/comp/script.t new/t/comp/script.t
65 *** perl-4.019/t/comp/script.t  Wed Mar 20 08:48:50 1991
66 --- new/t/comp/script.t Sun Jun 16 21:05:02 1991
67 ***************
68 *** 4,10 ****
69
70   print "1..3\n";
71
72 ! $x = `./perl -e 'print "ok\n";'`;
73
74   if ($x eq "ok\n") {print "ok 1\n";} else {print "not ok 1\n";}
75
76 --- 4,10 ----
77
78   print "1..3\n";
79
80 ! $x = `perl -e "print \\\"ok\\n\\\";"`;
81
82   if ($x eq "ok\n") {print "ok 1\n";} else {print "not ok 1\n";}
83
84 ***************
85 *** 12,23 ****
86   print try 'print "ok\n";'; print try "\n";
87   close try;
88
89 ! $x = `./perl Comp.script`;
90
91   if ($x eq "ok\n") {print "ok 2\n";} else {print "not ok 2\n";}
92
93 ! $x = `./perl <Comp.script`;
94
95   if ($x eq "ok\n") {print "ok 3\n";} else {print "not ok 3\n";}
96
97 ! `/bin/rm -f Comp.script`;
98 --- 12,23 ----
99   print try 'print "ok\n";'; print try "\n";
100   close try;
101
102 ! $x = `perl Comp.script`;
103
104   if ($x eq "ok\n") {print "ok 2\n";} else {print "not ok 2\n";}
105
106 ! $x = `perl <Comp.script`;
107
108   if ($x eq "ok\n") {print "ok 3\n";} else {print "not ok 3\n";}
109
110 ! `del Comp.script`;
111 diff -cbBwr perl-4.019/t/io/argv.t new/t/io/argv.t
112 *** perl-4.019/t/io/argv.t      Wed Mar 20 08:48:38 1991
113 --- new/t/io/argv.t     Sun Jun 16 21:14:14 1991
114 ***************
115 *** 8,26 ****
116   print try "a line\n";
117   close try;
118
119 ! $x = `./perl -e 'while (<>) {print \$.,\$_;}' Io.argv.tmp Io.argv.tmp`;
120
121   if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
122
123 ! $x = `echo foo|./perl -e 'while (<>) {print $_;}' Io.argv.tmp -`;
124
125   if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
126
127 ! $x = `echo foo|./perl -e 'while (<>) {print $_;}'`;
128
129   if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";}
130
131 ! @ARGV = ('Io.argv.tmp', 'Io.argv.tmp', '/dev/null', 'Io.argv.tmp');
132   while (<>) {
133       $y .= $. . $_;
134       if (eof()) {
135 --- 8,26 ----
136   print try "a line\n";
137   close try;
138
139 ! $x = `perl -e "while (<>) {print \$.,\$_;}" Io.argv.tmp Io.argv.tmp`;
140
141   if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
142
143 ! $x = `echo foo | perl -e "while (<>) {print $_;}" Io.argv.tmp -`;
144
145   if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
146
147 ! $x = `echo foo | perl -e "while (<>) {print $_;}"`;
148
149   if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";}
150
151 ! @ARGV = ('Io.argv.tmp', 'Io.argv.tmp', 'nul', 'Io.argv.tmp');
152   while (<>) {
153       $y .= $. . $_;
154       if (eof()) {
155 ***************
156 *** 33,36 ****
157   else
158       {print "not ok 5\n";}
159
160 ! `/bin/rm -f Io.argv.tmp`;
161 --- 33,36 ----
162   else
163       {print "not ok 5\n";}
164
165 ! `del Io.argv.tmp`;
166 diff -cbBwr perl-4.019/t/io/pipe.t new/t/io/pipe.t
167 *** perl-4.019/t/io/pipe.t      Wed Mar 20 08:48:38 1991
168 --- new/t/io/pipe.t     Sun Jun 16 21:25:14 1991
169 ***************
170 *** 5,11 ****
171   $| = 1;
172   print "1..8\n";
173
174 ! open(PIPE, "|-") || (exec 'tr', '[A-Z]', '[a-z]');
175   print PIPE "OK 1\n";
176   print PIPE "ok 2\n";
177   close PIPE;
178 --- 5,11 ----
179   $| = 1;
180   print "1..8\n";
181
182 ! open(PIPE, "|-") || (exec 'tr.exe', '[A-Z]', '[a-z]');
183   print PIPE "OK 1\n";
184   print PIPE "ok 2\n";
185   close PIPE;
186 ***************
187 *** 18,24 ****
188   }
189   else {
190       print STDOUT "not ok 3\n";
191 !     exec 'echo', 'not ok 4';
192   }
193
194   pipe(READER,WRITER) || die "Can't open pipe";
195 --- 18,24 ----
196   }
197   else {
198       print STDOUT "not ok 3\n";
199 !     exec 'perlglob', 'not ok 4';
200   }
201
202   pipe(READER,WRITER) || die "Can't open pipe";
203 diff -cbBwr perl-4.019/t/op/exec.t new/t/op/exec.t
204 *** perl-4.019/t/op/exec.t      Wed Mar 20 08:48:46 1991
205 --- new/t/op/exec.t     Sun Jun 16 21:39:32 1991
206 ***************
207 *** 7,21 ****
208
209   print "not ok 1\n" if system "echo ok \\1";   # shell interpreted
210   print "not ok 2\n" if system "echo ok 2";     # split and directly called
211 ! print "not ok 3\n" if system "echo", "ok", "3"; # directly called
212
213 ! if (system "true") {print "not ok 4\n";} else {print "ok 4\n";}
214
215 ! if ((system "/bin/sh -c 'exit 1'") != 256) { print "not "; }
216   print "ok 5\n";
217
218 ! if ((system "lskdfj") == 255 << 8) {print "ok 6\n";} else {print "not ok 6\n";}
219
220   unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";}
221
222 ! exec "echo","ok","8";
223 --- 7,21 ----
224
225   print "not ok 1\n" if system "echo ok \\1";   # shell interpreted
226   print "not ok 2\n" if system "echo ok 2";     # split and directly called
227 ! print "not ok 3\n" if system "perlglob", "ok", "3", "\n"; # directly called
228
229 ! if (system "expr 1 >nul") {print "not ok 4\n";} else {print "ok 4\n";}
230
231 ! if ((system "sh -c \"exit 1\"") != 1) { print "not "; }
232   print "ok 5\n";
233
234 ! if ((system "lskdfj") == 1) {print "ok 6\n";} else {print "not ok 6\n";}
235
236   unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";}
237
238 ! exec "perlglob","ok","8";
239 diff -cbBwr perl-4.019/t/op/glob.t new/t/op/glob.t
240 *** perl-4.019/t/op/glob.t      Wed Mar 20 08:48:54 1991
241 --- new/t/op/glob.t     Sun Jun 16 21:43:26 1991
242 ***************
243 *** 7,13 ****
244   @ops = <op/*>;
245   $list = join(' ',@ops);
246
247 ! chop($otherway = `echo op/*`);
248
249   print $list eq $otherway ? "ok 1\n" : "not ok 1\n$list\n$otherway\n";
250
251 --- 7,13 ----
252   @ops = <op/*>;
253   $list = join(' ',@ops);
254
255 ! chop($otherway = `perlglob op/*`);
256
257   print $list eq $otherway ? "ok 1\n" : "not ok 1\n$list\n$otherway\n";
258
259 diff -cbBwr perl-4.019/t/op/goto.t new/t/op/goto.t
260 *** perl-4.019/t/op/goto.t      Wed Mar 20 08:48:46 1991
261 --- new/t/op/goto.t     Sun Jun 16 21:50:54 1991
262 ***************
263 *** 29,34 ****
264   print "#2\t:$foo: == 4\n";
265   if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
266
267 ! $x = `./perl -e 'goto foo;' 2>&1`;
268   print "#3\t/label/ in :$x";
269   if ($x =~ /label/) {print "ok 3\n";} else {print "not ok 3\n";}
270 --- 29,34 ----
271   print "#2\t:$foo: == 4\n";
272   if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
273
274 ! $x = `perl -e "goto foo;" 2>&1`;
275   print "#3\t/label/ in :$x";
276   if ($x =~ /label/) {print "ok 3\n";} else {print "not ok 3\n";}
277 diff -cbBwr perl-4.019/t/op/magic.t new/t/op/magic.t
278 *** perl-4.019/t/op/magic.t     Wed Mar 20 08:48:36 1991
279 --- new/t/op/magic.t    Sun Jun 16 21:56:14 1991
280 ***************
281 *** 7,13 ****
282   print "1..5\n";
283
284   eval '$ENV{"foo"} = "hi there";';     # check that ENV is inited inside eval
285 ! if (`echo \$foo` eq "hi there\n") {print "ok 1\n";} else {print "not ok 1\n";}
286
287   unlink 'ajslkdfpqjsjfk';
288   $! = 0;
289 --- 7,13 ----
290   print "1..5\n";
291
292   eval '$ENV{"foo"} = "hi there";';     # check that ENV is inited inside eval
293 ! if (`echo %foo%` eq "hi there\n") {print "ok 1\n";} else {print "not ok 1\n";}
294
295   unlink 'ajslkdfpqjsjfk';
296   $! = 0;
297 ***************
298 *** 17,30 ****
299   # the next tests are embedded inside system simply because sh spits out
300   # a newline onto stderr when a child process kills itself with SIGINT.
301
302 ! system './perl',
303   '-e', '$| = 1;                # command buffering',
304
305 ! '-e', '$SIG{"INT"} = "ok3"; kill 2,$$;',
306 ! '-e', '$SIG{"INT"} = "IGNORE"; kill 2,$$; print "ok 4\n";',
307 ! '-e', '$SIG{"INT"} = "DEFAULT"; kill 2,$$; print "not ok\n";',
308
309 ! '-e', 'sub ok3 { print "ok 3\n" if pop(@_) eq "INT"; }';
310
311   @val1 = @ENV{keys(%ENV)};     # can we slice ENV?
312   @val2 = values(%ENV);
313 --- 17,30 ----
314   # the next tests are embedded inside system simply because sh spits out
315   # a newline onto stderr when a child process kills itself with SIGINT.
316
317 ! system 'perl',
318   '-e', '$| = 1;                # command buffering',
319
320 ! '-e', '$SIG{"TERM"} = "ok3"; kill 0,$$;',
321 ! '-e', '$SIG{"TERM"} = "IGNORE"; kill 0,$$; print "ok 4\n";',
322 ! '-e', '$SIG{"TERM"} = "DEFAULT"; kill 0,$$; print "not ok\n";',
323
324 ! '-e', 'sub ok3 { print "ok 3\n" if pop(@_) eq "TERM"; }';
325
326   @val1 = @ENV{keys(%ENV)};     # can we slice ENV?
327   @val2 = values(%ENV);
328 diff -cbBwr perl-4.019/t/op/mkdir.t new/t/op/mkdir.t
329 *** perl-4.019/t/op/mkdir.t     Wed Mar 20 08:48:54 1991
330 --- new/t/op/mkdir.t    Sun Jun 16 22:00:06 1991
331 ***************
332 *** 4,14 ****
333
334   print "1..7\n";
335
336 ! `rm -rf blurfl`;
337
338   print (mkdir('blurfl',0777) ? "ok 1\n" : "not ok 1\n");
339   print (mkdir('blurfl',0777) ? "not ok 2\n" : "ok 2\n");
340 ! print ($! =~ /exist/ ? "ok 3\n" : "not ok 3\n");
341   print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n");
342   print (rmdir('blurfl') ? "ok 5\n" : "not ok 5\n");
343   print (rmdir('blurfl') ? "not ok 6\n" : "ok 6\n");
344 --- 4,14 ----
345
346   print "1..7\n";
347
348 ! `rm -r blurfl`;
349
350   print (mkdir('blurfl',0777) ? "ok 1\n" : "not ok 1\n");
351   print (mkdir('blurfl',0777) ? "not ok 2\n" : "ok 2\n");
352 ! print ($! =~ /denied/ ? "ok 3\n" : "not ok 3\n");
353   print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n");
354   print (rmdir('blurfl') ? "ok 5\n" : "not ok 5\n");
355   print (rmdir('blurfl') ? "not ok 6\n" : "ok 6\n");
356 diff -cbBwr perl-4.019/t/op/split.t new/t/op/split.t
357 *** perl-4.019/t/op/split.t     Wed Mar 20 08:48:24 1991
358 --- new/t/op/split.t    Sun Jun 16 22:04:02 1991
359 ***************
360 *** 47,53 ****
361   print $_ eq '1:2:3:4:5:6:::' ? "ok 10\n" : "not ok 10 $_\n";
362
363   # Does assignment to a list imply split to one more field than that?
364 ! $foo = `./perl -D1024 -e '(\$a,\$b) = split;' 2>&1`;
365   print $foo =~ /DEBUGGING/ || $foo =~ /num\(3\)/ ? "ok 11\n" : "not ok 11\n";
366
367   # Can we say how many fields to split to when assigning to a list?
368 --- 47,53 ----
369   print $_ eq '1:2:3:4:5:6:::' ? "ok 10\n" : "not ok 10 $_\n";
370
371   # Does assignment to a list imply split to one more field than that?
372 ! $foo = `perl -D1024 -e "(\$a,\$b) = split;" 2>&1`;
373   print $foo =~ /DEBUGGING/ || $foo =~ /num\(3\)/ ? "ok 11\n" : "not ok 11\n";
374
375   # Can we say how many fields to split to when assigning to a list?
376 diff -cbBwr perl-4.019/t/op/stat.t new/t/op/stat.t
377 *** perl-4.019/t/op/stat.t      Fri Nov 22 22:04:46 1991
378 --- new/t/op/stat.t     Fri Nov 22 22:16:40 1991
379 ***************
380 *** 4,12 ****
381
382   print "1..56\n";
383
384 ! chop($cwd = `pwd`);
385
386 ! $DEV = `ls -l /dev`;
387
388   unlink "Op.stat.tmp";
389   open(FOO, ">Op.stat.tmp");
390 --- 4,12 ----
391
392   print "1..56\n";
393
394 ! chop($cwd = `cd`);
395
396 ! $DEV = `ls -l`;
397
398   unlink "Op.stat.tmp";
399   open(FOO, ">Op.stat.tmp");
400 ***************
401 *** 23,29 ****
402
403   sleep 2;
404
405 ! `rm -f Op.stat.tmp2; ln Op.stat.tmp Op.stat.tmp2; chmod 644 Op.stat.tmp`;
406
407   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
408       $blksize,$blocks) = stat('Op.stat.tmp');
409 --- 23,29 ----
410
411   sleep 2;
412
413 ! `del Op.stat.tmp2; ln Op.stat.tmp Op.stat.tmp2; chmod 644 Op.stat.tmp 2>nul`;
414
415   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
416       $blksize,$blocks) = stat('Op.stat.tmp');
417 ***************
418 *** 73,80 ****
419   if (-d '.') {print "ok 23\n";} else {print "not ok 23\n";}
420   if (! -f '.') {print "ok 24\n";} else {print "not ok 24\n";}
421
422 ! if (`ls -l perl` =~ /^l.*->/) {
423 !     if (-l 'perl') {print "ok 25\n";} else {print "not ok 25\n";}
424   }
425   else {
426       print "ok 25\n";
427 --- 73,80 ----
428   if (-d '.') {print "ok 23\n";} else {print "not ok 23\n";}
429   if (! -f '.') {print "ok 24\n";} else {print "not ok 24\n";}
430
431 ! if (`ls -l perl.exe` =~ /^l.*->/) {
432 !     if (-l 'perl.exe') {print "ok 25\n";} else {print "not ok 25\n";}
433   }
434   else {
435       print "ok 25\n";
436 ***************
437 *** 83,89 ****
438   if (-o 'Op.stat.tmp') {print "ok 26\n";} else {print "not ok 26\n";}
439
440   if (-e 'Op.stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";}
441 ! `rm -f Op.stat.tmp Op.stat.tmp2`;
442   if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
443
444   if ($DEV !~ /\nc.* (\S+)\n/)
445 --- 83,89 ----
446   if (-o 'Op.stat.tmp') {print "ok 26\n";} else {print "not ok 26\n";}
447
448   if (-e 'Op.stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";}
449 ! `del Op.stat.tmp Op.stat.tmp2 2>nul`;
450   if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
451
452   if ($DEV !~ /\nc.* (\S+)\n/)
453 ***************
454 *** 113,119 ****
455   $cnt = $uid = 0;
456
457   die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
458 ! chdir '/usr/bin' || die "Can't cd to /usr/bin";
459   while (defined($_ = <*>)) {
460       $cnt++;
461       $uid++ if -u;
462 --- 113,119 ----
463   $cnt = $uid = 0;
464
465   die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
466 ! chdir '../os2' || die "Can't cd to ../os2";
467   while (defined($_ = <*>)) {
468       $cnt++;
469       $uid++ if -u;
470 ***************
471 *** 124,138 ****
472   # I suppose this is going to fail somewhere...
473   if ($uid > 0 && $uid < $cnt) {print "ok 35\n";} else {print "not ok 35\n";}
474
475 ! unless (open(tty,"/dev/tty")) {
476 !     print STDERR "Can't open /dev/tty--run t/TEST outside of make.\n";
477   }
478   if (-t tty) {print "ok 36\n";} else {print "not ok 36\n";}
479   if (-c tty) {print "ok 37\n";} else {print "not ok 37\n";}
480   close(tty);
481   if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
482 ! open(null,"/dev/null");
483 ! if (! -t null || -e '/xenix') {print "ok 39\n";} else {print "not ok 39\n";}
484   close(null);
485   if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
486
487 --- 124,138 ----
488   # I suppose this is going to fail somewhere...
489   if ($uid > 0 && $uid < $cnt) {print "ok 35\n";} else {print "not ok 35\n";}
490
491 ! unless (open(tty,"con")) {
492 !     print STDERR "Can't open con--run t/TEST outside of make.\n";
493   }
494   if (-t tty) {print "ok 36\n";} else {print "not ok 36\n";}
495   if (-c tty) {print "ok 37\n";} else {print "not ok 37\n";}
496   close(tty);
497   if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
498 ! open(null,"nul");
499 ! if (! -t null || -e 'c:/os2krnl') {print "ok 39\n";} else {print "not ok 39\n";}
500   close(null);
501   if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
502
503 ***************
504 *** 141,148 ****
505   if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
506   if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
507
508 ! if (-B './perl') {print "ok 43\n";} else {print "not ok 43\n";}
509 ! if (! -T './perl') {print "ok 44\n";} else {print "not ok 44\n";}
510
511   open(FOO,'op/stat.t');
512   eval { -T FOO; };
513 --- 141,148 ----
514   if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
515   if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
516
517 ! if (-B 'perl.exe') {print "ok 43\n";} else {print "not ok 43\n";}
518 ! if (! -T 'perl.exe') {print "ok 44\n";} else {print "not ok 44\n";}
519
520   open(FOO,'op/stat.t');
521   eval { -T FOO; };
522 ***************
523 *** 172,176 ****
524   }
525   close(FOO);
526
527 ! if (-T '/dev/null') {print "ok 55\n";} else {print "not ok 55\n";}
528 ! if (-B '/dev/null') {print "ok 56\n";} else {print "not ok 56\n";}
529 --- 172,176 ----
530   }
531   close(FOO);
532
533 ! if (-T 'nul') {print "ok 55\n";} else {print "not ok 55\n";}
534 ! if (-B 'nul') {print "ok 56\n";} else {print "not ok 56\n";}
535 diff -cbBwr perl-4.019/t/TEST new/t/TEST
536 *** perl-4.019/t/TEST   Tue Jun 11 23:32:06 1991
537 --- new/t/TEST  Sun Jun 16 20:47:38 1991
538 ***************
539 *** 16,22 ****
540
541   if ($ARGV[0] eq '') {
542       @ARGV = split(/[ \n]/,
543 !       `echo base/*.t comp/*.t cmd/*.t io/*.t; echo op/*.t lib/*.t`);
544   }
545
546   open(CONFIG,"../config.sh");
547 --- 16,22 ----
548
549   if ($ARGV[0] eq '') {
550       @ARGV = split(/[ \n]/,
551 !       `ls base/*.t comp/*.t cmd/*.t io/*.t op/*.t lib/*.t`);
552   }
553
554   open(CONFIG,"../config.sh");
555 ***************
556 *** 35,41 ****
557       chop($te);
558       print "$te" . '.' x (15 - length($te));
559       if ($sharpbang) {
560 !       open(results,"./$test|") || (print "can't run.\n");
561       } else {
562         open(script,"$test") || die "Can't run $test.\n";
563         $_ = <script>;
564 --- 35,41 ----
565       chop($te);
566       print "$te" . '.' x (15 - length($te));
567       if ($sharpbang) {
568 !       open(results,"$test|") || (print "can't run.\n");
569       } else {
570         open(script,"$test") || die "Can't run $test.\n";
571         $_ = <script>;
572 ***************
573 *** 45,51 ****
574         } else {
575             $switch = '';
576         }
577 !       open(results,"./perl$switch $test|") || (print "can't run.\n");
578       }
579       $ok = 0;
580       $next = 0;
581 --- 45,51 ----
582         } else {
583             $switch = '';
584         }
585 !       open(results,"perl$switch $test|") || (print "can't run.\n");
586       }
587       $ok = 0;
588       $next = 0;
589