Remove the newlines from the tokens returned by AliveTestReturnToken. Add a special check for cygwin perl which has a chomp that does not properly handle dos-newlines.

This commit is contained in:
seawood%netscape.com 2002-10-20 07:02:57 +00:00
parent 166a608d62
commit b514f0e0cf

View File

@ -22,7 +22,7 @@ use File::Path; # for rmtree();
use Config; # for $Config{sig_name} and $Config{sig_num}
use File::Find ();
$::UtilsVersion = '$Revision: 1.182 $ ';
$::UtilsVersion = '$Revision: 1.183 $ ';
package TinderUtils;
@ -1675,6 +1675,8 @@ sub AliveTestReturnToken {
# Look for and return token
if ($status) {
$rv = extract_token_from_file($binary_log, $token, $delimiter);
chomp($rv);
chop($rv) if ($^O eq 'cygwin'); # cygwin perl doesn't chomp dos-newlinesproperly so use chop.
if ($rv) {
print "AliveTestReturnToken: token value = $rv\n";
}