tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-11-29 09:27:56 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

parallel: Allow for command with empty name in process table.

Browse source
This commit is contained in:
Ole Tange 2016-05-22 22:53:53 +02:00
parent 618220910a
commit d570ec2d20
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/parallel
View file

@ -4114,10 +4114,11 @@ sub which {
for (@pidtable) { for (@pidtable) {
# must match: 24436 21224 busybox ash # must match: 24436 21224 busybox ash
# must match: 24436 21224 <<empty on MacOSX running cubase>> # must match: 24436 21224 <<empty on MacOSX running cubase>>
# must match: 24436 21224 <<empty on system running Viber>>
# or: perl -e 'while($0=" "){}' # or: perl -e 'while($0=" "){}'
if(/^\s*(\S+)\s+(\S+)\s+(\S+.*)/ if(/^\s*(\S+)\s+(\S+)\s+(\S+.*)/
or or
$^O eq "darwin" and /^\s*(\S+)\s+(\S+)\s+()$/) { /^\s*(\S+)\s+(\S+)\s+()$/) {
$parent_of{$1} = $2; $parent_of{$1} = $2;
push @{$children_of{$2}}, $1; push @{$children_of{$2}}, $1;
$name_of{$1} = $3; $name_of{$1} = $3;