1# Copyright (C) 2009 Apple Inc. All rights reserved. 2# 3# Redistribution and use in source and binary forms, with or without 4# modification, are permitted provided that the following conditions 5# are met: 6# 1. Redistributions of source code must retain the above copyright 7# notice, this list of conditions and the following disclaimer. 8# 2. Redistributions in binary form must reproduce the above copyright 9# notice, this list of conditions and the following disclaimer in the 10# documentation and/or other materials provided with the distribution. 11# 12# THIS SOFTWARE IS PROVIDED BY APPLE INC. ``AS IS'' AND ANY 13# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 14# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 15# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR 16# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 17# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 18# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 19# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY 20# OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 21# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 22# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 23 24use strict; 25use warnings; 26 27package DumpRenderTreeSupport; 28 29BEGIN { 30 use Exporter (); 31 our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); 32 $VERSION = 1.00; 33 @ISA = qw(Exporter); 34 @EXPORT = qw(&processIsCrashing); 35 %EXPORT_TAGS = ( ); 36 @EXPORT_OK = (); 37} 38 39our @EXPORT_OK; 40 41sub processIsCrashing 42{ 43 my $pid = shift; 44 my $tryingToExit = 0; 45 open PS, "ps -o state -p $pid |"; 46 <PS>; # skip header 47 $tryingToExit = 1 if <PS> =~ /E/; 48 close PS; 49 return $tryingToExit; 50} 51 521; 53