exit unless @lines;
-my $tot = @lines - ($Opt{header} ? 0 : 1);
+# NB 11.07.19 Bug Wrong ! my $tot = @lines - ($Opt{header} ? 0 : 1);
+my $tot = @lines - ($Opt{header} ? 1 : 0);
my $t = -1;
my $format = "| ".join(" | ",map {$t+=$_+3; "\%-".$_."s"} @len)." |".chr(10);
[ "$SHELL" = "/bin/bash" ] || return 0
pdsh_quiet() {
- exec 3> >(grep -Ev '^(pdsh@|[^ :]+: (stdio forwarding failed|channel [0-9]+: open failed))')
+ exec 3> >(grep -Ev '^(pdsh@|([^ :]+: )?(stdio forwarding failed|channel [0-9]+: open failed))')
pdsh $@ 2>&3
exec 3>&-
}