diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-15 19:58:40 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-15 19:58:43 +0100 |
commit | 9a6515f9f4fcf015b1205ff85de5f1bd25c16e57 (patch) | |
tree | 9523a5facc28eb47abd16b9870a0f9b8913688a2 /tests/tstunt | |
parent | 647d68c0203a30956aa57a6378a42efdd6dc9268 (diff) |
Test suite: tstunt/dpkg-parsechangelog: Do not complain if PERLLIB is empty.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'tests/tstunt')
-rwxr-xr-x | tests/tstunt/dpkg-parsechangelog | 2 |
1 files changed, 1 insertions, 1 deletions
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; |