From 523f42f6ba9805aae8245af4f996581d6c7c51a3 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 15 Oct 2016 20:34:40 +0100
Subject: Test suite: Fix entirely-broken tstunt PERLLIB arrangements

Specifically:
 * Properly dereference the variable when looking for the stunt
   dir to be there already
 * Do not add "." to the path if the path starts out empty.
 * Crash _with the right message_ in dpkg-parsechangelog if PERLLIB is
   unset.  (PERLLIB mustn't be unset because we're trying to strip
   our own value from it.)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 tests/tstunt/dpkg-parsechangelog | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/tstunt')

diff --git a/tests/tstunt/dpkg-parsechangelog b/tests/tstunt/dpkg-parsechangelog
index 1abd00c..4d7cdf8 100755
--- a/tests/tstunt/dpkg-parsechangelog
+++ b/tests/tstunt/dpkg-parsechangelog
@@ -30,7 +30,7 @@ if (@ARGV) {
     foreach my $k (qw(PATH PERLLIB)) {
 	my @opath = defined $ENV{$k} ? split /\:/, $ENV{$k} : ();
 	my @npath = grep { $_ ne $strip } @opath;
-	@npath != @opath  or die "$0 $k $ENV{$k} ?";
+	@npath != @opath  or die "$0 $k ".($ENV{$k}//"(undef)")." ?";
 	$ENV{$k} = join ':', @npath;
     }
     die if $ENV{'DGIT_NO_TSTUNT_CLPARSE'}++;
-- 
cgit v1.2.3