From 7e2143af700a77d1a66aba8efc69b555690e4c53 Mon Sep 17 00:00:00 2001
From: Bill Erickson <berick@esilibrary.com>
Date: Wed, 9 Oct 2013 11:58:32 -0400
Subject: [PATCH] capture $self in new state() sub

Signed-off-by: Bill Erickson <berick@esilibrary.com>
---
 Open-ILS/src/perlmods/lib/OpenILS/SIP.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
index d13c9923af..664bb6288b 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
@@ -266,6 +266,7 @@ sub login {
 }
 
 sub state {
+    my $self = shift;
     return { authtoken => $self->{authtoken} };
 }
 
-- 
2.11.0