From: Roland McGrath <roland@redhat.com>
Date: Fri, 2 Dec 2005 04:27:26 +0000 (+0000)
Subject: 2005-11-02 Michal Marek  <mmarek@suse.cz>
X-Git-Tag: v4.5.18~314
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=ec407e3b56e283e2764499b3ab6473733c6a0c8d;p=strace

2005-11-02 Michal Marek  <mmarek@suse.cz>

	* strace-graph (handle_trace): follow clone() and vfork() calls.
---

diff --git a/strace-graph b/strace-graph
index 1746b920..72685b4a 100755
--- a/strace-graph
+++ b/strace-graph
@@ -229,7 +229,7 @@ sub handle_trace {
 	push @$seq, ['EXEC', $filename, $argv];
 
 	$pr{$pid}{seq} = $seq;
-    } elsif ($call eq 'fork') {
+    } elsif ($call eq 'fork' || $call eq 'clone' || $call eq 'vfork') {
 	return if $result == 0;
 
 	my $seq = $pr{$pid}{seq};