From cf2932580591b079f163cf0205df6c422c20cede Mon Sep 17 00:00:00 2001
From: Greg Sabino Mullane <greg@endpoint.com>
Date: Fri, 18 Oct 2013 00:12:02 -0400
Subject: [PATCH] Expand the arrays in the opening config dump in the logs.

---
 Bucardo.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/Bucardo.pm b/Bucardo.pm
index 50ea62210..b2c79ed47 100644
--- a/Bucardo.pm
+++ b/Bucardo.pm
@@ -533,9 +533,16 @@ sub start_mcp {
 
     ## Print each object, aligned, and show 'undef' for undefined values
     ## Yes, this prints things like HASH(0x8fbfc84), but we're okay with that
+    $Data::Dumper::Indent = 0;
+    $Data::Dumper::Terse = 1;
     for (sort keys %$self) {
-        $objdump .= sprintf " %-*s => %s\n", $maxlen, $_, (defined $self->{$_}) ? qq{'$self->{$_}'} : 'undef';
+        $objdump .= sprintf " %-*s => %s\n", $maxlen, $_,
+            (defined $self->{$_}) ?
+                (ref $self->{$_} eq 'ARRAY') ? Dumper($self->{$_})
+                    : qq{'$self->{$_}'} : 'undef';
     }
+    $Data::Dumper::Indent = 1;
+    $Data::Dumper::Terse = 0;
     $self->glog($objdump, LOG_TERSE);
 
     ## Restore the password
-- 
2.39.5