diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-12-06 10:15:28 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-07 00:46:55 +0000 |
| commit | ad20d923779746662bb01e56a1dd24d2ecb02dc2 (patch) | |
| tree | b83b4594888d94faad0d8643b12860374dff5138 /t/run | |
| parent | fedd8cf1f5167f0f052a36462feefd9188699fb9 (diff) | |
| download | perl-ad20d923779746662bb01e56a1dd24d2ecb02dc2.tar.gz | |
[PATCH t/base/lex.t, term.t] Purging echo from base tests
Date: Thu, 6 Dec 2001 15:15:28 -0500
Message-ID: <20011206201528.GF16414@blackrider>
(just the term.t, not the lex.t)
Subject: [PATCH t/comp/script.t] Elimininating needless logic, runs from t/ now
From: Michael G Schwern <schwern@pobox.com>
Date: Thu, 6 Dec 2001 15:22:22 -0500
Message-ID: <20011206202222.GG16414@blackrider>
Subject: [PATCH t/run/kill_perl.t] Eliminationg needless $^X logic
From: Michael G Schwern <schwern@pobox.com>
Date: Thu, 6 Dec 2001 15:31:58 -0500
Message-ID: <20011206203158.GI16414@blackrider>
Subject: [PATCH t/io/open.t t/test.pl] Cleanup and echo purge
From: Michael G Schwern <schwern@pobox.com>
Date: Thu, 6 Dec 2001 17:38:55 -0500
Message-ID: <20011206223855.GC22648@blackrider>
p4raw-id: //depot/perl@13503
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/kill_perl.t | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t index 6345a793a4..499189a350 100644 --- a/t/run/kill_perl.t +++ b/t/run/kill_perl.t @@ -69,17 +69,11 @@ foreach my $prog (@prgs) { close TEST or die "Cannot close $tmpfile: $!"; my $results; - if ($^O eq 'MSWin32') { - $results = `.\\perl -I../lib $switch $tmpfile 2>&1`; - } - elsif ($^O eq 'NetWare') { - $results = `perl -I../lib $switch $tmpfile 2>&1`; - } - elsif ($^O eq 'MacOS') { - $results = `$^X -I::lib -MMac::err=unix $switch $tmpfile`; + if ($^O eq 'MacOS') { + $results = `$^X -I::lib -MMac::err=unix $switch $tmpfile`; } else { - $results = `./perl "-I../lib" $switch $tmpfile 2>&1`; + $results = `$^X "-I../lib" $switch $tmpfile 2>&1`; } my $status = $?; |