summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rwxr-xr-xtests/tstunt/dpkg-parsechangelog2
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;