Added code to remove trailing whitespace and carriage return.

This commit is contained in:
Janet B. Anderson
2002-07-03 15:28:52 +00:00
parent b88f3127e4
commit e7f10d4720
2 changed files with 3 additions and 0 deletions

View File

@@ -75,6 +75,8 @@ sub GetVars
{
$value{$var} = $1;
}
# remove trailing whitespace and carriage return
$value{$var} =~ s/\s+$//;
}
}
close IN;

View File

@@ -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; }