From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 28 May 2000 08:13:39 +0000 (+0000)
Subject: make Test::Harness use wait.h/WCOREDUMP if available
X-Git-Tag: accepted/trunk/20130322.191538~34882
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0dfaec2592df52c0db8279a5d259a8acb6d3f24e;p=platform%2Fupstream%2Fperl.git

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