From b8330f13a8eebba88a916888ba6a3f83cb0144a2 Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 20 Jan 2009 03:02:03 +0000
Subject: [PATCH] repaired config data structure ref check for registering
 routers

git-svn-id: svn://svn.open-ils.org/OpenSRF/branches/rel_1_0@1632 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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