Change s/\R//g to chomp().

This commit is contained in:
Scott Mann
2011-10-10 23:18:17 +00:00
parent 6851f380b0
commit 07dc62785b

View File

@@ -15,7 +15,7 @@
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
# $Id: start.pl,v 1.26 2011/10/10 19:06:05 smann Exp $
# $Id: start.pl,v 1.27 2011/10/10 23:18:17 smann Exp $
# Framework for starting test servers.
# Based on the type of server specified, check for port availability, remove
@@ -145,7 +145,8 @@ sub start_server {
open(FH, "<", $args_file);
while(my $line=<FH>)
{
$line =~ s/\R//g;
#$line =~ s/\R//g;
chomp $line;
next if ($line =~ /^\s*$/); #discard blank lines
next if ($line =~ /^\s*#/); #discard comment lines
$line =~ s/#.*$//g;