storage/src/tests/pstack_testrunner


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/perl -w

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'";
}