Comment old code

diff --git a/bin/shell-replace b/bin/shell-replace
index 6077808e70624e5cba4644024554bf2086ec62e1..0a993dc7ae5141b0d67489579cdf9169ad84a0fd 100755 (executable)
--- a/bin/shell-replace
+++ b/bin/shell-replace
@@ -195,13 +195,14 @@ sub cmd {
        my $hcmd;
 #die $_;
        my @cmd = `$cmd`;
+       die "$!" if $?;
        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>;
-       close $hcmd;
-       return wantarray ? @cmd : join('',@cmd);
+       # NB 13.12.22 open($hcmd,"$cmd |") or die $!;
+       # NB 13.12.22 my @cmd = <$hcmd>;
+       # NB 13.12.22 close $hcmd;
+       # NB 13.12.22 return wantarray ? @cmd : join('',@cmd);
 }
 
 sub shell_replace {