[pkg-perl-tools] 04/09: use.t: don't run the command in the package source directory

[Niko Tyni]

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

ntyni pushed a commit to branch ntyni/autopkgtest
in repository pkg-perl-tools.

commit 2511895433e70f3c3a40cc0e14d1bae74df14425
Author: Niko Tyni <ntyni at debian.org>
Date:   Sun Nov 27 21:29:06 2016 +0200

    use.t: don't run the command in the package source directory
    
    Closes: #837137
---
 autopkgtest/scripts/runtime-deps.d/use.t | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/autopkgtest/scripts/runtime-deps.d/use.t b/autopkgtest/scripts/runtime-deps.d/use.t
index b1a20b5..f6bb90c 100755
--- a/autopkgtest/scripts/runtime-deps.d/use.t
+++ b/autopkgtest/scripts/runtime-deps.d/use.t
@@ -87,6 +87,10 @@ usage() if !@modules;
 
 plan tests => 2 * scalar @modules;
 
+# don't run the command in the source directory, in case
+# cwd is on @INC
+chdir('/');
+
 for my $mod (@modules) {
     my $cmd = qq($^X -w -M"$mod" -e 1 2>&1);
     my @out = qx($cmd);

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/pkg-perl-tools.git