From 199daed4edd868e5aff9751249aa54bfc8ebaec9 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:53:10 -0600 Subject: [PATCH] Sip.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/SIP/Sip.pm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/C4/SIP/Sip.pm b/C4/SIP/Sip.pm index 3b826ef91e..858f7083c2 100644 --- a/C4/SIP/Sip.pm +++ b/C4/SIP/Sip.pm @@ -15,20 +15,24 @@ use POSIX qw(strftime); use Sip::Constants qw(SIP_DATETIME); use Sip::Checksum qw(checksum); -our @ISA = qw(Exporter); +use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS); -our @EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count +BEGIN { + $VERSION = 1.00; + @ISA = qw(Exporter); + + @EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count denied sipbool boolspace write_msg read_SIP_packet $error_detection $protocol_version $field_delimiter $last_response); -our %EXPORT_TAGS = ( + %EXPORT_TAGS = ( all => [qw(y_or_n timestamp add_field maybe_add add_count denied sipbool boolspace write_msg read_SIP_packet $error_detection $protocol_version $field_delimiter $last_response)]); - +} our $error_detection = 0; our $protocol_version = 1; -- 2.39.5