strace-graph | 46 my ($pid, $call, $args, $result, $time, $time_spent); 96 ($call, $args, $result) = /(\S+)\((.*)\)\s+= (.*)$/; 97 ($call, $args, $result) = /(\S+)\((.*)\)\s+= (.*)$/; 98 if ($result =~ /^(.*) <([0-9.]*)>$/) { =~ /^(.*) <([0-9.]*)>$/) { 99 ($result, $time_spent) = ($1, $2); 100 unless (defined $result) { 105 handle_trace($pid, $call, $args, $result, $time); 114 my $result = ""; 118 $result .= $1; 121 return ("$result...", $in); 123 return ($result, $in) [all...] |