From 4ad4ab6396af26bed9dceb442adf4aad6687f362 Mon Sep 17 00:00:00 2001 From: Colin Campbell Date: Wed, 6 Jul 2016 15:25:21 +0100 Subject: [PATCH] Bug 15006 Correct indentation of EXPORTs in Sip.pm Removed tabs and used spaces consistently Used 'use base' to remove unnecessary BEGIN sub and explicit setting of ISA at application level Signed-off-by: Srdjan Signed-off-by: Marcel de Rooy Signed-off-by: Kyle M Hall --- C4/SIP/Sip.pm | 28 ++++++++++++---------------- 1 file changed, 12 insertions(+), 16 deletions(-) diff --git a/C4/SIP/Sip.pm b/C4/SIP/Sip.pm index 52eda1f216..3f41226352 100644 --- a/C4/SIP/Sip.pm +++ b/C4/SIP/Sip.pm @@ -16,22 +16,18 @@ use IO::Handle; use C4::SIP::Sip::Constants qw(SIP_DATETIME FID_SCREEN_MSG); use C4::SIP::Sip::Checksum qw(checksum); -use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS); - -BEGIN { - @ISA = qw(Exporter); - - @EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count - denied sipbool boolspace write_msg - $error_detection $protocol_version $field_delimiter - $last_response); - - %EXPORT_TAGS = ( - all => [qw(y_or_n timestamp add_field maybe_add - add_count denied sipbool boolspace write_msg - $error_detection $protocol_version - $field_delimiter $last_response)]); -} +use base qw(Exporter); + +our @EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count + denied sipbool boolspace write_msg + $error_detection $protocol_version $field_delimiter + $last_response); + +our %EXPORT_TAGS = ( + all => [qw(y_or_n timestamp add_field maybe_add + add_count denied sipbool boolspace write_msg + $error_detection $protocol_version + $field_delimiter $last_response)]); our $error_detection = 0; our $protocol_version = 1; -- 2.39.5