I don't see any problems with this in testing so far, but the code is
way out of what I'm familiar with in perl.

On 2024/09/17 15:10, Marc Espie wrote:
> I got bitten recently by the fact that
> Log->system does not support the same features as
> BaseState->system
> 
> (namely, passing some code values in child/father, which is intended
> to eventually enable privsep in tags)
> 
> So, the following stand-alone patch should go in.
> 
> All this does is rewrite the pipeopen to allow code snippets to get
> in the middle.
> 
> Please test and comment.
> 
> Index: OpenBSD/Log.pm
> ===================================================================
> RCS file: /vide/cvs/src/usr.sbin/pkg_add/OpenBSD/Log.pm,v
> diff -u -p -r1.10 Log.pm
> --- OpenBSD/Log.pm	13 Jun 2023 09:07:17 -0000	1.10
> +++ OpenBSD/Log.pm	17 Sep 2024 13:07:59 -0000
> @@ -104,7 +104,24 @@ sub fatal($self, @p)
>  
>  sub system($self, @p)
>  {
> -	if (open(my $grab, "-|", @p)) {
> +	my ($todo, $todo2);
> +	if (ref $p[0] eq 'CODE') {
> +		$todo = shift @p;
> +	} else {
> +		$todo = sub() {};
> +	}
> +	if (ref $p[0] eq 'CODE') {
> +		$todo2 = shift @p;
> +	} else {
> +		$todo2 = sub() {};
> +	}
> +	my $child_pid = open(my $grab, "-|");
> +	if (!defined $child_pid) {
> +		$self->{p}->say("system(#1) was not run: #2 #3",
> +		    join(", ", @p), $!, $self->{p}->child_error);
> +	}
> +	if ($child_pid) {
> +		&$todo2();
>  		while (<$grab>) {
>  			$self->{p}->_print($_);
>  		}
> @@ -115,8 +132,9 @@ sub system($self, @p)
>  		}
>  		return $?;
>  	} else {
> -		$self->{p}->say("system(#1) was not run: #2 #3",
> -		    join(", ", @p), $!, $self->{p}->child_error);
> +		$DB::inhibit_exit = 0;
> +		&$todo();
> +		exec {$p[0]} (@p) or exit 1;
>  	}
>  }
>  
>