upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-06-09 08:02:06 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Scott Mann 2011-10-10 23:18:17 +00:00
parent 6851f380b0
commit 07dc62785b
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
bin/tests/system/start.pl
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;