From c36782c0aa91e67b28d50e6bc56a407171bc7d1e Mon Sep 17 00:00:00 2001
From: Rene Krenn <rkrenn@sipwise.com>
Date: Fri, 11 Nov 2022 17:18:40 +0100
Subject: [PATCH] MT#55939 no base64 decoding for uninitialized values

Change-Id: I829888dcfc37313434346d9ad369495203ed88a7
---
 NGCP/CDR/Exporter.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/NGCP/CDR/Exporter.pm b/NGCP/CDR/Exporter.pm
index 2b83129..53d1bc6 100644
--- a/NGCP/CDR/Exporter.pm
+++ b/NGCP/CDR/Exporter.pm
@@ -146,9 +146,8 @@ sub config2array {
     if ('ARRAY' eq ref($val)) {
         return @$val;
     } elsif ($serialized) {
-        my $decoded = decode_base64($val);
-        die("invalid config value '$val': " . $@ . "\n") if $@;
-        #$decoded =~ s{\A\$VAR\d+\s*=\s*}{};
+        my $decoded;
+        $decoded = decode_base64($val) if defined $val;
         ## no critic (BuiltinFunctions::ProhibitStringyEval)
         $val = eval($decoded);
         die("invalid config value '$decoded': " . $@ . "\n") if $@;