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 commit2570062d25) Signed-off-by: Jacob O'Mara <jacob.omara@ptfs-europe.com> (cherry picked from commit2b7d647553) Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
parent
3883df31e5
commit
875dd5ff5f
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Reference in New Issue