check_host: Allocate a large-enough buffer for the host table.

[nagiosplug.git] / tools / build_perl_modules

diff --git a/tools/build_perl_modules b/tools/build_perl_modules
index fb47145940e6d725525cd2b7ae69e335aa55b079..4bdb81b12a62a5deaad996ce0423bde8cdd98b86 100755 (executable)
--- a/tools/build_perl_modules
+++ b/tools/build_perl_modules
@@ -74,7 +74,9 @@ foreach my $tarball (@tarballs) {
        chdir $dir or die "Can't chdir into $dir";
 
        # Need to add this so this module is found for subsequent ones
-       $ENV{PERL5LIB}="$topdir/$dir/blib/lib:$ENV{PERL5LIB}";
+       my @dirs = split(":", $ENV{PERL5LIB} || "");
+       unshift @dirs, "$topdir/$dir/blib/lib";
+       $ENV{PERL5LIB}=join(":", @dirs);
 
        if ($opts->{t}) {
                system("make test") == 0 or die "Can't run make test failed";