From 86b1a0c064b47c59b54d9b6e72537187d4a233a0 Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Sun, 25 Jan 2009 20:16:17 +0000
Subject: [PATCH] make config parsing more tolerant

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1639 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm b/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm
index 89d087b..5b72fe5 100644
--- a/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm
+++ b/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm
@@ -98,9 +98,11 @@ sub listen {
         for my $router (@$routers) {
             if(ref $router) {
                 if( !$router->{services} || 
-                        ( ref($router->{services}) eq 'HASH' and 
-                            grep { $_ eq $self->{app} } @{$router->{services}->{service}} )  ||
-                        $router->{services}->{service} eq $self->{app}) {
+                    !$router->{services}->{service} || 
+                    ( 
+                        ref($router->{services}->{service}) eq 'ARRAY' and 
+                        grep { $_ eq $self->{app} } @{$router->{services}->{service}} )  ||
+                    $router->{services}->{service} eq $self->{app}) {
 
                     my $name = $router->{name};
                     my $domain = $router->{domain};
-- 
2.43.2