do not fall over if there is unexpectedly no meta data for a service code

1 files changed, 8 insertions, 0 deletions

diff --git a/perllib/Open311/PopulateServiceList.pm b/perllib/Open311/PopulateServiceList.pm
index d8730a703..e8ae56833 100644
--- a/perllib/Open311/PopulateServiceList.pm
+++ b/perllib/Open311/PopulateServiceList.pm
@@ -207,6 +207,14 @@ sub _add_meta_to_contact {
         ];
     }
 
+    if ( ! $meta_data->{attributes}->{attribute} ) {
+        warn sprintf( "Empty meta data for %s at %s",
+                      $self->_current_service->{service_code},
+                      $self->_current_council->endpoint )
+        if $self->verbose;
+        return;
+    }
+
     # turn the data into something a bit more friendly to use
     my @meta =
         # remove trailing colon as we add this when we display so we don't want 2