diff options
author | Arne Juul <arnej@yahooinc.com> | 2022-09-14 12:52:09 +0000 |
---|---|---|
committer | Arne Juul <arnej@yahooinc.com> | 2022-09-14 12:52:09 +0000 |
commit | 576d1c1e55b53a84bf59141563d065b85b70aab8 (patch) | |
tree | b0b35e59da8a33041607ac384d6e793d59e5b302 /storage/src/tests/pstack_testrunner | |
parent | 736524f0c11604d167d73f5dffab65d7692e0d73 (diff) |
rewrite simple perl script in /bin/sh
Diffstat (limited to 'storage/src/tests/pstack_testrunner')
-rwxr-xr-x | storage/src/tests/pstack_testrunner | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/storage/src/tests/pstack_testrunner b/storage/src/tests/pstack_testrunner index 151aaec7e1a..4d4d5105d5a 100755 --- a/storage/src/tests/pstack_testrunner +++ b/storage/src/tests/pstack_testrunner @@ -1,15 +1,9 @@ -#!/usr/bin/perl -w +#!/bin/sh # 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'"; -} +ps auxww | grep "./testrunner" | grep -v grep | while read username pid restofline; do + if pstack $pid; then :; else + echo "Failed to run 'pstack $pid'" + exit 1 + fi +done |