[Opensrf-commits] r1633 - trunk/src/perl/lib/OpenSRF/Transport/SlimJabber

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-01-19 22:03:34 -0500 (Mon, 19 Jan 2009)
New Revision: 1633

Modified:
   trunk/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm
Log:
repaired config data structure ref check for registering routers

Modified: trunk/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm
===================================================================
--- trunk/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm	2009-01-20 03:02:03 UTC (rev 1632)
+++ trunk/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm	2009-01-20 03:03:34 UTC (rev 1633)
@@ -98,7 +98,7 @@
         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}) {