From 625a339161116331cb26025e67306711e9389f73 Mon Sep 17 00:00:00 2001
From: Jonathan Steinert <hachi@kuiki.net>
Date: Fri, 26 Feb 2010 10:35:12 -0800
Subject: [PATCH] Allow SET role = psgi_server to work

---
 lib/Perlbal/Plugin/PSGI.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/Perlbal/Plugin/PSGI.pm b/lib/Perlbal/Plugin/PSGI.pm
index dae6a9d..290d5b7 100644
--- a/lib/Perlbal/Plugin/PSGI.pm
+++ b/lib/Perlbal/Plugin/PSGI.pm
@@ -38,10 +38,13 @@ sub unregister {
 
 sub load {
     Perlbal::register_global_hook('manage_command.psgi_app', \&handle_psgi_app_command);
+    Perlbal::Service::add_role('psgi_server', sub { Perlbal::Plugin::PSGI::Client->new(@_) });
     return 1;
 }
 
 sub unload {
+    Perlbal::unregister_global_hook('manage_command.psgi_app');
+    Perlbal::Service::remove_role('psgi_server');
     return 1;
 }