From: Chris Andrews <chris@nodnol.org>
Date: Sun, 12 Jul 2009 17:03:05 +0000 (+0100)
Subject: Add a grep to avoid attempting to subscribe to "/queue/", which
X-Git-Tag: 0.0.6~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Engine-STOMP.git;a=commitdiff_plain;h=b9aa486179cff4fdc2e83ca34c39b83f4c5a246f

Add a grep to avoid attempting to subscribe to "/queue/", which
annoys ActiveMQ.
---

diff --git a/lib/Catalyst/Engine/Stomp.pm b/lib/Catalyst/Engine/Stomp.pm
index b94a504..2752b5e 100644
--- a/lib/Catalyst/Engine/Stomp.pm
+++ b/lib/Catalyst/Engine/Stomp.pm
@@ -72,7 +72,8 @@ sub run {
         die 'No Engine::Stomp configuration found'
              unless ref $app->config->{'Engine::Stomp'} eq 'HASH';
 
-        my @queues = map { $app->controller($_)->action_namespace } $app->controllers;
+        my @queues = grep { length $_ }
+	             map  { $app->controller($_)->action_namespace } $app->controllers;
 
         # connect up
         my %template = %{$app->config->{'Engine::Stomp'}};