blob: 151aaec7e1a50b381dfc41c4baf584b31eb7bd20 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!/usr/bin/perl -w
# Copyright Yahoo. Licensed under the terms of the Apache 2.0 license. See LICENSE in the project root.
use strict;
my @pids = `ps auxww | grep "./testrunner" | grep -v grep`;
foreach (@pids) {
s/^\S+\s+(\d+)\s+.*$/$1/;
chomp;
}
foreach my $pid (@pids) {
my $cmd = "pstack $pid";
system($cmd) == 0 or die "Failed to run '$cmd'";
}
|