capture $self in new state() sub collab/berick/eg-support-multiplex-personality
authorBill Erickson <berick@esilibrary.com>
Wed, 9 Oct 2013 15:58:32 +0000 (11:58 -0400)
committerBill Erickson <berick@esilibrary.com>
Thu, 10 Oct 2013 16:50:12 +0000 (12:50 -0400)
Signed-off-by: Bill Erickson <berick@esilibrary.com>
Open-ILS/src/perlmods/lib/OpenILS/SIP.pm

index d13c992..664bb62 100644 (file)
@@ -266,6 +266,7 @@ sub login {
 }
 
 sub state {
+    my $self = shift;
     return { authtoken => $self->{authtoken} };
 }