diff options
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++; |