Publish

1 files changed, 14 insertions, 0 deletions

diff --git a/storage/src/tests/pstack_testrunner b/storage/src/tests/pstack_testrunner
new file mode 100755
index 00000000000..320d47f7e35
--- /dev/null
+++ b/storage/src/tests/pstack_testrunner
@@ -0,0 +1,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'";
+}