Added code to remove trailing whitespace and carriage return.
This commit is contained in:
2
src/libCom/env/bldEnvData.pl
vendored
2
src/libCom/env/bldEnvData.pl
vendored
@@ -75,6 +75,8 @@ sub GetVars
|
||||
{
|
||||
$value{$var} = $1;
|
||||
}
|
||||
# remove trailing whitespace and carriage return
|
||||
$value{$var} =~ s/\s+$//;
|
||||
}
|
||||
}
|
||||
close IN;
|
||||
|
||||
@@ -10,6 +10,7 @@ open VARS, $ARGV[0] or die "Cannot get variables from $ARGV[0]";
|
||||
|
||||
while (<VARS>)
|
||||
{
|
||||
s/\s+$//; # remove trailing white space and carriage return
|
||||
if (/EPICS_VERSION=(.*)/) { $ver = $1; }
|
||||
if (/EPICS_REVISION=(.*)/) { $rev = $1; }
|
||||
if (/EPICS_MODIFICATION=(.*)/) { $mod = $1; }
|
||||
|
||||
Reference in New Issue
Block a user