Bug 32537: (QA follow-up): Tidy code

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit 2570062d25)
Signed-off-by: Jacob O'Mara <jacob.omara@ptfs-europe.com>
(cherry picked from commit 2b7d647553)

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
Kyle Hall 2023-01-03 08:14:50 -05:00 committed by Lucas Gass
parent 3883df31e5
commit 875dd5ff5f
1 changed files with 2 additions and 3 deletions

View File

@ -103,9 +103,8 @@ if ( $help
exit();
}
$no_block = $no_block eq 'Y' ? 'Y' : '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;