From 7166b2f7082934ff115235d2c1f8b41f03b2c6b4 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Tue, 17 Sep 2024 14:52:22 -0400
Subject: [PATCH] Bug 37582: Tidy write_msg

Signed-off-by: Brendan Lawlor <blawlor@clamsnet.org>
Signed-off-by: Kristi Krueger <kkrueger@cuyahogalibrary.org>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 C4/SIP/Sip.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/C4/SIP/Sip.pm b/C4/SIP/Sip.pm
index cfaa202dac7..667e0c83ac1 100644
--- a/C4/SIP/Sip.pm
+++ b/C4/SIP/Sip.pm
@@ -187,9 +187,9 @@ sub boolspace {
 #
 
 sub write_msg {
-    my ($self, $msg, $server) = @_;
+    my ( $self, $msg, $server ) = @_;
     my $terminator = $server->{account}->{terminator};
-    my $encoding = $server->{account}->{encoding};
+    my $encoding   = $server->{account}->{encoding};
 
     $terminator ||= q{};
     $terminator = ( $terminator eq 'CR' ) ? $CR : $CRLF;
@@ -197,23 +197,23 @@ sub write_msg {
     my $separator = $server->{account}->{convert_nonprinting_characters};
     $msg =~ s/[^[:print:]]/$separator/g if defined $separator;
 
-    $msg = encode($encoding, $msg) if ( $encoding );
+    $msg = encode( $encoding, $msg ) if ($encoding);
 
     my $cksum;
 
     # $msg = encode_utf8($msg);
     if ($error_detection) {
-        if (defined($self->{seqno})) {
+        if ( defined( $self->{seqno} ) ) {
             $msg .= 'AY' . $self->{seqno};
         }
         $msg .= 'AZ';
         $cksum = checksum($msg);
-        $msg .= sprintf('%04.4X', $cksum);
+        $msg .= sprintf( '%04.4X', $cksum );
     }
 
     STDOUT->autoflush(1);
     print $msg, $terminator;
-    siplog("LOG_INFO", "OUTPUT MSG: '$msg'");
+    siplog( "LOG_INFO", "OUTPUT MSG: '$msg'" );
 
     $last_response = $msg;
 }
-- 
2.47.0