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 34502bffc345514f117d5e7cb7abbb9ba9a1bc04..65ecda45c5c79f07364292db521fd84e18b109bf 100644 (file)
--- 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 ce2d66dcab3c32b26f3578da9c26df57cddcaad9..1abd00ca1800d1bda3b2f1c3516c176d6066e092 100755 (executable)
--- 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;