fix split

diff --git a/dev-bin/run_convergence_tests.pl b/dev-bin/run_convergence_tests.pl
index 471243c7b02b7d5ffef9e5d574f3c7fa1065b194..cb675b1566c692e38653f781f96053789d398edb 100755 (executable)
--- a/dev-bin/run_convergence_tests.pl
+++ b/dev-bin/run_convergence_tests.pl
@@ -229,7 +229,7 @@ else {
 ###################
 
 if ( $Opts{s} ) {
-    dump_parameter_frequency($rdata_files); 
+    dump_parameter_frequency($rdata_files);
     exit 1;
 }
 
@@ -368,8 +368,8 @@ sub run_test_cases {
         my @output_history;
         for ( my $iteration = 1 ; $iteration <= $iteration_max ; $iteration++ )
         {
-           # FIXME: remove the -irc flag below when several test cases
-           # are corrected to avoid out-of-bounds integer flags
+            # FIXME: remove the -irc flag below when several test cases
+            # are corrected to avoid out-of-bounds integer flags
             my $err = Perl::Tidy::perltidy(
                 source      => \$source,
                 destination => \$output,
@@ -541,13 +541,14 @@ sub read_data_to_hash {
     }
 
     my $dstring = get_string($db_fname);
-    my @lines   = split /\n/, $dstring;
+    my @lines   = split /^/, $dstring;
     my $lines   = @lines;
     my $fname   = "";
     my $lno     = 0;
     my $string;
 
     foreach my $line (@lines) {
+        chomp $line;
         $lno++;
         if ( $line =~ /^==>\s*([\w\.]+)\s*<==/ ) {
             if ($string) {