Make EpicsHostArch.pl print newline

Print a newline after the EPICS host architecture spec.  This is typical
for a UNIX-like program (e.g., date).
This commit is contained in:
2018-06-26 17:56:58 -05:00
parent 68779943eb
commit ab493264b2

View File

@@ -19,7 +19,7 @@ $suffix="";
$suffix="-".$ARGV[0] if ($ARGV[0] ne "");
$EpicsHostArch = GetEpicsHostArch();
print "$EpicsHostArch$suffix";
print "$EpicsHostArch$suffix\n";
sub GetEpicsHostArch { # no args
$arch=$Config{'archname'};