diff options
| -rw-r--r-- | perllib/Open311.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index dee985fca..e506ec1d0 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -39,7 +39,11 @@ sub get_service_list { my $service_list_xml = $self->_get( $self->endpoints->{services} ); - return $self->_get_xml_object( $service_list_xml ); + if ( $service_list_xml ) { + return $self->_get_xml_object( $service_list_xml ); + } else { + return undef; + } } sub get_service_meta_info { |