INTEGRATION: CWS hr32 (1.7.254); FILE MERGED
2006/03/06 17:38:45 hr 1.7.254.1: #i62815#: Scrambled CVS passwords may contain one or more '#'. Do not parse the rest of the password as comment
This commit is contained in:
parent
abb9ba9048
commit
0ed4273d1b
1 changed files with 9 additions and 4 deletions
|
@ -4,9 +4,9 @@
|
|||
#
|
||||
# $RCSfile: CwsConfig.pm,v $
|
||||
#
|
||||
# $Revision: 1.7 $
|
||||
# $Revision: 1.8 $
|
||||
#
|
||||
# last change: $Author: rt $ $Date: 2005-09-08 08:56:07 $
|
||||
# last change: $Author: rt $ $Date: 2006-03-10 15:59:30 $
|
||||
#
|
||||
# The Contents of this file are made available subject to
|
||||
# the terms of GNU Lesser General Public License Version 2.1.
|
||||
|
@ -367,8 +367,13 @@ sub read_config
|
|||
|
||||
open ($fhandle, $fname) || croak("ERROR: Can't open '$fname': $!");
|
||||
while ( <$fhandle> ) {
|
||||
tr/\r\n//d; # win32 pain
|
||||
s/\#.*//; # kill comments
|
||||
tr/\r\n//d; # win32 pain
|
||||
# Issue #i62815#: Scrambled CVS passwords may contain one or more '#'.
|
||||
# Ugly special case needed: still allow in-line (perl style) comments
|
||||
# elsewhere because existing configuration files may depend on them.
|
||||
if ( !/^\s*CVS_PASSWORD/ ) {
|
||||
s/\#.*//; # kill comments
|
||||
}
|
||||
/^\s*$/ && next;
|
||||
|
||||
if (/\[\s*(\S+)\s*\]/) {
|
||||
|
|
Loading…
Reference in a new issue