Don't print an undef when listing an empty herd.

diff --git a/bucardo b/bucardo
index 2847184555991f68d1f1587b130a3f181e0f09d4..0f23579f16d2c85beb8f0b83be7ea3161765f756 100755 (executable)
--- a/bucardo
+++ b/bucardo
@@ -3645,12 +3645,12 @@ sub list_herds {
         $maxlen = length $row->{name} if length $row->{name} > $maxlen;
     }
 
-    ## Figure out which goats are in each of these herds
     for my $row (@$info) {
         my $name = $row->{name};
         my $h = $global{herd}{$name};
-        printf 'Herd: %-*s  DB: %s ',
-            $maxlen, $name, $h->{db};
+        printf 'Herd: %-*s ',
+            $maxlen, $name;
+        printf ' DB: %s ', $h->{db} if $h->{db};
         ## Got goats?
         if (exists $h->{goat}) {
             print ' Members: ';