From d3f688e7082b0eb47feb4e4379b00420ac6e30a5 Mon Sep 17 00:00:00 2001
From: Darold <gilles@darold.net>
Date: Sat, 9 Jun 2012 14:19:18 +0200
Subject: [PATCH] Set thousand separator and decimal separator locale dependant

---
 pgbadger | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/pgbadger b/pgbadger
index 3c2ad9a..e319079 100755
--- a/pgbadger
+++ b/pgbadger
@@ -29,6 +29,8 @@ use IO::File;
 use Benchmark;
 use File::Basename;
 use Time::Local 'timelocal_nocheck';
+use POSIX qw(setlocale LC_NUMERIC);
+setlocale LC_NUMERIC, "";
 
 $VERSION = '1.0';
 
@@ -75,6 +77,11 @@ my $pie_percentage_limit = 2;
 
 my $t0 = Benchmark->new;
 
+# Get the decimal separator
+my $n = 5/2;
+my $num_sep = ',';
+$num_sep = ' ' if ($n =~ /,/);
+
 # get the command line parameters
 my $result = GetOptions (
 	"l|logfile=s"	=> \$logfile,
@@ -560,7 +567,7 @@ sub comma_numbers
 
         my $text = reverse $_[0];
 
-        $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
+        $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1$num_sep/g;
 
         return scalar reverse $text;
 }
-- 
2.50.1