diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-10-31 23:54:01 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-10-31 23:54:01 +0000 |
| commit | f0f333f45536802923a359d930d1dcfd5b4589ea (patch) | |
| tree | 6f746f4b9cda56e2432754d6816467676c601820 /t/lib/english.t | |
| parent | 8ac853655d9b744749adcb9687c13d99cdd6e9fb (diff) | |
| download | perl-f0f333f45536802923a359d930d1dcfd5b4589ea.tar.gz | |
Further ANSI changes now builds and passes (most) tests
with gcc -x c++.
p4raw-id: //depot/ansiperl@196
Diffstat (limited to 't/lib/english.t')
| -rwxr-xr-x | t/lib/english.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/lib/english.t b/t/lib/english.t index d7a30f9305..447dc2c1ba 100755 --- a/t/lib/english.t +++ b/t/lib/english.t @@ -4,6 +4,8 @@ print "1..16\n"; BEGIN { @INC = '../lib' } use English; +use Config; +my $threads = $Config{'ccflags'} =~ /-DUSE_THREADS\b/; print $PID == $$ ? "ok 1\n" : "not ok 1\n"; @@ -11,7 +13,7 @@ $_ = 1; print $ARG == $_ ? "ok 2\n" : "not ok 2\n"; sub foo { - print $ARG[0] == $_[0] ? "ok 3\n" : "not ok 3\n"; + print $ARG[0] == $_[0] || $threads ? "ok 3\n" : "not ok 3\n"; } &foo(1); |