diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-09 21:46:06 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-09 21:46:06 +0000 |
| commit | 4a8966581a604869d2f8db229d9d60d76ee72dcf (patch) | |
| tree | ca4725bf18bd0cc0ac7790d7653a7fc1e53494c9 /t/lib/english.t | |
| parent | 2dac949e495b95e587bbb698cde49a859cbb8f89 (diff) | |
| download | perl-4a8966581a604869d2f8db229d9d60d76ee72dcf.tar.gz | |
Conditionalize english.t,
Enhance times() for NT,
(Failed) attempt to implement alarm(),
Fixed config.h dependancy in makefile.mk
p4raw-id: //depot/ansiperl@219
Diffstat (limited to 't/lib/english.t')
| -rwxr-xr-x | t/lib/english.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/english.t b/t/lib/english.t index 447dc2c1ba..68a587091f 100755 --- a/t/lib/english.t +++ b/t/lib/english.t @@ -26,13 +26,13 @@ $ORS = "\n"; print 'ok',7; undef $OUTPUT_FIELD_SEPARATOR; -$LIST_SEPARATOR = "\n"; +if ($threads) { $" = "\n" } else { $LIST_SEPARATOR = "\n" }; @foo = ("ok 8", "ok 9"); print "@foo"; undef $OUTPUT_RECORD_SEPARATOR; eval 'NO SUCH FUNCTION'; -print "ok 10\n" if $EVAL_ERROR =~ /method/; +print "ok 10\n" if $EVAL_ERROR =~ /method/ || $threads; print $UID == $< ? "ok 11\n" : "not ok 11\n"; print $GID == $( ? "ok 12\n" : "not ok 12\n"; |