[debhelper-devel] [debhelper] 15/30: Test::DH: Support setting env in run_dh_tool

[Niels Thykier]

This is an automated email from the git hooks/post-receive script.

nthykier pushed a commit to branch master
in repository debhelper.

commit 1e9c94352179e92a54b47a68ee67f6b3d74c4e62
Author: Niels Thykier <niels at thykier.net>
Date:   Sun Jul 2 15:51:38 2017 +0000

    Test::DH: Support setting env in run_dh_tool
    
    Signed-off-by: Niels Thykier <niels at thykier.net>
---
 t/Test/DH.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/t/Test/DH.pm b/t/Test/DH.pm
index 13d80b7..34b3613 100644
--- a/t/Test/DH.pm
+++ b/t/Test/DH.pm
@@ -60,6 +60,15 @@ sub run_dh_tool {
     if (not $pid) {
         $ENV{DH_COMPAT} = $compat;
         $ENV{DH_INTERNAL_TESTSUITE_SILENT_WARNINGS} = 1;
+        if (defined(my $env = $options->{env})) {
+            for my $k (sort(keys(%{$env}))) {
+                if (defined($env->{$k})) {
+                    $ENV{$k} = $env->{$k};
+                } else {
+                    delete($ENV{$k});
+                }
+            }
+        }
         if ($options->{quiet}) {
             open(STDOUT, '>', '/dev/null') or error("Reopen stdout: $!");
             open(STDERR, '>', '/dev/null') or error("Reopen stderr: $!");

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debhelper/debhelper.git