Bug 31051: Fix test

[koha-ffzg.git] / misc / sip_cli_emulator.pl

diff --git a/misc/sip_cli_emulator.pl b/misc/sip_cli_emulator.pl
index 441234d..60bba20 100755 (executable)
--- a/misc/sip_cli_emulator.pl
+++ b/misc/sip_cli_emulator.pl
@@ -54,7 +54,7 @@ my $fee_identifier;
 my $transaction_id;
 my $pickup_location;
 my $hold_mode;
-my $no_block;
+my $no_block = 'N';
 
 my $terminator = q{};
 
@@ -103,9 +103,8 @@ if (   $help
     exit();
 }
 
-$no_block //= 'N';
-
-$terminator = ( $terminator eq 'CR' ) ? $CR : $CRLF;
+$no_block   = $no_block eq 'Y'    ? 'Y' : 'N';
+$terminator = $terminator eq 'CR' ? $CR : $CRLF;
 
 # Set perl to expect the same record terminator it is sending
 $/ = $terminator;