From 4003f9f88470673d19e204f435fa2385f5bd3492 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Fri, 20 Sep 2013 10:04:41 -0400
Subject: [PATCH] Bug 9288: (follow-up) use specified terminator for both input
 and output

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
(cherry picked from commit 8af35f89badacaf025226811c233f2cf44554910)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 misc/sip_cli_emulator.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/misc/sip_cli_emulator.pl b/misc/sip_cli_emulator.pl
index 708b1bb558..dc8ce537a6 100755
--- a/misc/sip_cli_emulator.pl
+++ b/misc/sip_cli_emulator.pl
@@ -49,6 +49,9 @@ if (   $help
 
 $terminator = ( $terminator eq 'CR' ) ? $CR : $CRLF;
 
+# Set perl to expect the same record terminator it is sending
+$/ = $terminator;
+
 my ( $sec, $min, $hour, $day, $month, $year ) = localtime(time);
 $year += 1900;
 my $transaction_date = "$year$month$day    $hour$min$sec";
-- 
2.39.5