diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 08:13:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 08:13:39 +0000 |
| commit | 0dfaec2592df52c0db8279a5d259a8acb6d3f24e (patch) | |
| tree | b7ac9913c394bcfe9cfffb728870dd5199dab0f2 /lib | |
| parent | 8fbe4a12c0f223483e9d723cdfd4fba95ce88b89 (diff) | |
| download | perl-0dfaec2592df52c0db8279a5d259a8acb6d3f24e.tar.gz | |
make Test::Harness use wait.h/WCOREDUMP if available
(from Ben Tilly <ben_tilly@hotmail.com>)
p4raw-id: //depot/perl@6134
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Test/Harness.pm | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 9902741134..5b444f94bf 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -323,16 +323,9 @@ sub runtests { my $tried_devel_corestack; sub corestatus { my($st) = @_; - my($ret); eval {require 'wait.ph'}; - if ($@) { - SWITCH: { - $ret = ($st & 0200); # Tim says, this is for 90% - } - } else { - $ret = WCOREDUMP($st); - } + my $ret = defined &WCOREDUMP ? WCOREDUMP($st) : $st & 0200; eval { require Devel::CoreStack; $have_devel_corestack++ } unless $tried_devel_corestack++; |