From 9a6515f9f4fcf015b1205ff85de5f1bd25c16e57 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 15 Oct 2016 19:58:40 +0100
Subject: Test suite: tstunt/dpkg-parsechangelog: Do not complain if PERLLIB is
 empty.

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')

diff --git a/tests/tstunt/dpkg-parsechangelog b/tests/tstunt/dpkg-parsechangelog
index ce2d66d..1abd00c 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;
-- 
cgit v1.2.3