no hash slices :(

Signed-off-by: Mike Rylander <mrylander@gmail.com>

diff --git a/SIPServer.pm b/SIPServer.pm
index 4b6c77c..2be20be 100644 (file)
--- a/SIPServer.pm
+++ b/SIPServer.pm
@@ -304,7 +304,7 @@ sub mux_input {
                     success => $success,
                     transport  => $transport,
                     net_server_parts => {
-                        %$self{ qw/ils state institution account/ }
+                        map { ($_ => $$self{$_}) } qw/ils state institution account/
                     }
                 })
             );