From a80ced5327815df5bf664abc5d00a35dc568132a Mon Sep 17 00:00:00 2001 From: Nicolas Boisselier Date: Tue, 13 Dec 2022 21:41:52 +0100 Subject: [PATCH] Comment old code --- bin/shell-replace | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/bin/shell-replace b/bin/shell-replace index 6077808e..0a993dc7 100755 --- 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 { -- 2.47.3