Replace Ctrl+M by printable \r. Thanks to Marc Cousin for the report.

diff --git a/pgbadger b/pgbadger
index ca0fbf6b006bf18747625f728b3261dd5e2c64ac..69c19c5aa0bcd5b682fce1cd31b4be5f3226f267 100755 (executable)
--- a/pgbadger
+++ b/pgbadger
@@ -300,7 +300,7 @@ if ($exclude_file) {
        my @exclq = <IN>;
        close(IN);
        chomp(@exclq);
-       map {s/\r//;} @exclq;
+       map {s/\r//;} @exclq;
        foreach my $r (@exclq) {
                &check_regex($r, '--exclude-file');
        }
@@ -320,7 +320,7 @@ if ($include_file) {
        my @exclq = <IN>;
        close(IN);
        chomp(@exclq);
-       map {s/\r//;} @exclq;
+       map {s/\r//;} @exclq;
        foreach my $r (@exclq) {
                &check_regex($r, '--include-file');
        }
@@ -668,7 +668,7 @@ foreach my $logfile (@log_files) {
                while (my $line = <$lfile>) {
                        $cursize += length($line);
                        chomp($line);
-                       $line =~ s/\r//;
+                       $line =~ s/\r//;
                        $nlines++;
                        next if (!$line);
 
@@ -4067,7 +4067,7 @@ sub autodetect_format
        my %ident_name = ();
        while (my $line = <$tfile>) {
                chomp($line);
-               $line =~ s/\r//;
+               $line =~ s/\r//;
                next if (!$line);
                $nline++;
 
@@ -4140,7 +4140,7 @@ sub autodetect_duration
        my %ident_name = ();
        while (my $line = <$tfile>) {
                chomp($line);
-               $line =~ s/\r//;
+               $line =~ s/\r//;
                next if (!$line);
                $nline++;
                if (   ($line =~ /\s+duration: \d+\.\d+ ms\s+(query|statement|prepare|parse|bind|execute)/)