diff options
Diffstat (limited to 'scripts/Dpkg/IPC.pm')
| -rw-r--r-- | scripts/Dpkg/IPC.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/scripts/Dpkg/IPC.pm b/scripts/Dpkg/IPC.pm index 4302ffa92..116051d32 100644 --- a/scripts/Dpkg/IPC.pm +++ b/scripts/Dpkg/IPC.pm @@ -278,8 +278,14 @@ sub fork_and_exec { ${$opts{"error_to_string"}} = readline($error_to_string_pipe); } if ($opts{"wait_child"}) { + my $cmdline = "@prog"; + if ($opts{"env"}) { + foreach (keys %{$opts{"env"}}) { + $cmdline = "$_=\"" . $opts{"env"}{$_} . "\" $cmdline"; + } + } wait_child($pid, nocheck => $opts{"nocheck"}, - timeout => $opts{"timeout"}, cmdline => "@prog"); + timeout => $opts{"timeout"}, cmdline => $cmdline); return 1; } |