diff options
| author | Struan Donald <struan@exo.org.uk> | 2013-01-16 17:15:25 +0000 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2013-01-16 17:15:25 +0000 |
| commit | 2b7c3be2e3c668c4a8951e0e863317d528bfdc2c (patch) | |
| tree | ed385b8aed851b11067b76453837429bc477f188 | |
| parent | 13deae3e4a361f988eff4618c3c8da3cd4fa045e (diff) | |
do not attempt to process empty service list content
| -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 { |