From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 15 Oct 2016 18:58:40 +0000 (+0100)
Subject: Test suite: tstunt/dpkg-parsechangelog: Do not complain if PERLLIB is empty.
X-Git-Tag: archive/debian/2.0~8
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=9a6515f9f4fcf015b1205ff85de5f1bd25c16e57;p=dgit.git

Test suite: tstunt/dpkg-parsechangelog: Do not complain if PERLLIB is empty.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/debian/changelog b/debian/changelog
index 34502bff..65ecda45 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -271,7 +271,8 @@ dgit (1.1) unstable; urgency=medium
     currently only be updated with an actual upload, ie dgit push.)
   * Make warnings fatal in dpkg-repos-admin-debian, dgit-ssh-dispatch
     (using setup_sigwarn).
-  * Make warnings fatal in tstunt/dpkg-parsechangelog (directly).
+  * tstunt/dpkg-parsechangelog: Make warnings fatal (directly).
+  * tstunt/dpkg-parsechangelog: Do not complain if PERLLIB is empty.
   * Test suite: Honour DGIT_TEST_DEBUG=''.
   * With -DDDD, print out all gitcfg references (copious!)
   * Fix a debug message in the obsolete sshpsql archive access driver.
diff --git a/tests/tstunt/dpkg-parsechangelog b/tests/tstunt/dpkg-parsechangelog
index ce2d66dc..1abd00ca 100755
--- a/tests/tstunt/dpkg-parsechangelog
+++ b/tests/tstunt/dpkg-parsechangelog
@@ -28,7 +28,7 @@ if (@ARGV) {
     my $strip = $0;
     $strip =~ s#/[^/]+$## or die "$0 ?";
     foreach my $k (qw(PATH PERLLIB)) {
-	my @opath = split /\:/, $ENV{$k};
+	my @opath = defined $ENV{$k} ? split /\:/, $ENV{$k} : ();
 	my @npath = grep { $_ ne $strip } @opath;
 	@npath != @opath  or die "$0 $k $ENV{$k} ?";
 	$ENV{$k} = join ':', @npath;