From 726c4ddaa73a124d382cc5128c747b64cec56eab Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@baculasystems.com>
Date: Mon, 16 Oct 2017 18:08:55 +0200
Subject: [PATCH] regress: Fix error with new perl systems

---
 regress/scripts/functions | 2 ++
 1 file changed, 2 insertions(+)

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
-- 
2.39.5