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

diff --git a/bin/tests/system/start.pl b/bin/tests/system/start.pl
index 63c1d26d7bca977dd2093dba91b5152dddee6cde..81b32b0c766f67b099f59dca6403899f96291ed5 100644 (file)
--- a/bin/tests/system/start.pl
+++ b/bin/tests/system/start.pl
@@ -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.13.176.9 2011/10/10 19:40:50 smann Exp $
+# $Id: start.pl,v 1.13.176.10 2011/10/10 23:23:50 smann Exp $
 
 # Framework for starting test servers.
 # Based on the type of server specified, check for port availability, remove
@@ -144,7 +144,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;