Bug 2400 [18/18]: fixing pod syntax in C4/SIP/Sip/MsgType.pm

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>

diff --git a/C4/SIP/Sip/MsgType.pm b/C4/SIP/Sip/MsgType.pm
index 6ff6b7b..bf390c7 100644 (file)
--- 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 : '';
 }