Use ticks inseat of open because open run child process

diff --git a/bin/shell-replace b/bin/shell-replace
index 437538be1043ea60b9262b445f062d6be7576b40..6077808e70624e5cba4644024554bf2086ec62e1 100755 (executable)
--- a/bin/shell-replace
+++ b/bin/shell-replace
@@ -194,7 +194,9 @@ sub cmd {
        my $cmd = join(' ',@_);
        my $hcmd;
 #die $_;
-       $cmd =~ s/"/\\"/g;
+       my @cmd = `$cmd`;
+       return wantarray ? @cmd : join('',@cmd);
+       # NB 13.12.22 $cmd =~ s/"/\\"/g;
        # NB 13.12.22 open reurn pid if command failed, so die never called: open($hcmd,qq/bash -lc "$cmd" |/) or die $!;
        open($hcmd,"$cmd |") or die $!;
        my @cmd = <$hcmd>;