From c6fdbb24b047cd6a124c46197cbaad2eb2bbcfbe Mon Sep 17 00:00:00 2001
From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Tue, 13 Dec 2022 20:21:58 +0100
Subject: [PATCH] Fix bug in &cmd open

---
 bin/shell-replace | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/bin/shell-replace b/bin/shell-replace
index f16a5bab..437538be 100755
--- a/bin/shell-replace
+++ b/bin/shell-replace
@@ -195,7 +195,8 @@ sub cmd {
 	my $hcmd;
 #die $_;
 	$cmd =~ s/"/\\"/g;
-	open($hcmd,qq/bash -lc "$cmd" |/) or die $!;
+	# 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);
@@ -246,9 +247,9 @@ sub shell_replace {
 			#
 			$blank = $1;
 			$cmd = $2;
-			#$line = <$hfile>;
 			push @lines, $line;
 			push @lines, map{ s/^/$blank/; $_ } &cmd($cmd);
+			$_ = <$hfile>;
 
 		} else {
 			#
-- 
2.47.3