From 6733c141f388edb1930f2ca1bb7c6e3974cdc9e5 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 20 Sep 2013 10:04:41 -0400 Subject: [PATCH] Bug 9288 - Add a script to test SIP from the command line - QA Followup 2 --- misc/sip_cli_emulator.pl | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) diff --git a/misc/sip_cli_emulator.pl b/misc/sip_cli_emulator.pl index 708b1bb..dc8ce53 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"; -- 1.7.2.5