make Test::Harness use wait.h/WCOREDUMP if available

(from Ben Tilly <ben_tilly@hotmail.com>)

p4raw-id: //depot/perl@6134

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 9902741..5b444f9 100644 (file)
--- 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++;