From: Eric Bollengier <eric@baculasystems.com>
Date: Mon, 16 Oct 2017 16:08:55 +0000 (+0200)
Subject: regress: Fix error with new perl systems
X-Git-Tag: Release-9.0.5~20
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=726c4ddaa73a124d382cc5128c747b64cec56eab;p=bacula%2Fbacula

regress: Fix error with new perl systems
---

diff --git a/regress/scripts/functions b/regress/scripts/functions
index 2722e42d91..ca675de742 100644
--- a/regress/scripts/functions
+++ b/regress/scripts/functions
@@ -811,6 +811,7 @@ db_password=${db_password:-""}
 working=${working:-"$cwd/working"}
 dumps=${dumps:-"$cwd/dumps"}
 bin=${bin:-"$cwd/bin"}
+PERL5LIB=${PERL5LIB}:$cwd
 
 # Bacula scripts
 scripts=${scripts:-"$cwd/bin"}
@@ -839,6 +840,7 @@ export rscripts
 export tmp
 export src
 export tmpsrc
+export PERL5LIB
 
 bperl="perl -Mscripts::functions"
 export bperl