regress: Fix error with new perl systems

[bacula/bacula] / regress / scripts / functions

diff --git a/regress/scripts/functions b/regress/scripts/functions
index 2722e42d91274d466325a3c8253ee42c1f5ebcf5..ca675de7423f19222f1d72c4c622c898a8a6d743 100644 (file)
--- 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