From dde4051f1b65925084a5e96a94e61cd7aea55433 Mon Sep 17 00:00:00 2001 From: Andrew Moore Date: Tue, 12 Aug 2008 10:11:53 -0500 Subject: [PATCH] Bug 2400 [18/18]: fixing pod syntax in C4/SIP/Sip/MsgType.pm Signed-off-by: Galen Charlton --- C4/SIP/Sip/MsgType.pm | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/C4/SIP/Sip/MsgType.pm b/C4/SIP/Sip/MsgType.pm index 6ff6b7b57f..bf390c7b52 100644 --- a/C4/SIP/Sip/MsgType.pm +++ b/C4/SIP/Sip/MsgType.pm @@ -839,7 +839,15 @@ sub handle_login { $status = 0; } else { $status = login_core($server,$uid,$pwd); } -=doc + +=pod + +Note: This block was commented out with improperly formatted POD. It +was not interpreted by perl, but not properly handled by POD +formatters. I fixed the POD syntax error so this code is now obviously +a comment and not code. The code has been extracted to the login_core +sub and is called above. -- amoore Aug 12, 2008 + if (!exists($server->{config}->{accounts}->{$uid})) { syslog("LOG_WARNING", "MsgType::handle_login: Unknown login '$uid'"); $status = 0; @@ -882,7 +890,9 @@ sub handle_login { } } } + =cut + $self->write_msg(LOGIN_RESP . $status); return $status ? LOGIN : ''; } -- 2.39.5