commit dbc1ffb2a4975e781c665a61d9762a5ecb5e0f2b
author Keith Owens <kaos.ocs@gmail.com> Mon Jan 18 13:03:41 2016 +1100
committer Dmitry V. Levin <ldv@altlinux.org> Fri Feb 05 00:41:23 2016 +0000
tree 43fdcc84235012e6ac387fa21a2ec282c84ff45a
parent a0bc25f085b91e09a859e33d95bfe1f752895526

strace-graph: handle strace -T

* strace-graph: Ignore extra ' <time.spent>' field added by strace -T.

strace-graph

diff --git a/strace-graph b/strace-graph
index 169c82c..b09c928 100755
--- a/strace-graph
+++ b/strace-graph
@@ -43,7 +43,7 @@
 my $scale_factor = 3.5;
 
 while (<>) {
-    my ($pid, $call, $args, $result, $time);
+    my ($pid, $call, $args, $result, $time, $time_spent);
     chop;
     $floatform = 0;
 
@@ -88,6 +88,9 @@
     }
 
     ($call, $args, $result) = /(\S+)\((.*)\)\s+= (.*)$/;
+    if ($result =~ /^(.*) <([0-9.]*)>$/) {
+	($result, $time_spent) = ($1, $2);
+    }
     unless (defined $result) {
 	print STDERR "$0: $ARGV: $.: cannot parse line.\n";
 	next;