Make permissions of supervise directories 0700, as created by sv(8). (Closes: #924903)

1 files changed, 5 insertions, 0 deletions

diff --git a/t/924903.t b/t/924903.t
index 92ca4b0..fa70834 100644
--- a/t/924903.t
+++ b/t/924903.t
@@ -5,6 +5,11 @@ use Test::More tests => 3;
 use File::Path qw(remove_tree);
 use File::Copy::Recursive qw(dircopy);
 use File::stat;
+use Cwd;
+
+my $root = Cwd::cwd;
+$ENV{PATH} = "$root:$ENV{PATH}";
+$ENV{DH_AUTOSCRIPTDIR} = $root;
 
 sub prepare_source_package {
     die '$0 does not match expected format'