Test suite: Fix entirely-broken tstunt PERLLIB arrangements

[dgit.git] / tests / tstunt / dpkg-parsechangelog

diff --git a/tests/tstunt/dpkg-parsechangelog b/tests/tstunt/dpkg-parsechangelog
index 1abd00ca1800d1bda3b2f1c3516c176d6066e092..4d7cdf84fb3ad426e31ab755dfc3e5e69d3fe682 100755 (executable)
--- 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'}++;