SIPServer.pm - BEGIN block VERSION and vars related to export.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/SIP/SIPServer.pm b/C4/SIP/SIPServer.pm
index 987daa7..15364b0 100644 (file)
--- a/C4/SIP/SIPServer.pm
+++ b/C4/SIP/SIPServer.pm
@@ -18,7 +18,13 @@ use Sip::MsgType;
 
 use constant LOG_SIP => "local6"; # Local alias for the logging facility
 
-our @ISA = qw(Net::Server::PreFork);
+use vars qw(@ISA $VERSION);
+
+BEGIN {
+       $VERSION = 1.00;
+       @ISA = qw(Net::Server::PreFork);
+}
+
 #
 # Main
 #
@@ -268,3 +274,6 @@ sub sip_protocol_loop {
        $expect = '';
     }
 }
+
+1;
+__END__