[gimp-perl] Make Gimp::UI load Gtk2 with C LC_NUMERIC locale.

[Ed J <edj src gnome org>]

commit 37f9a8d3aa479f37f9b7aa46d129678ffc2b8544
Author: Ed J <edj src gnome org>
Date:   Sun Jun 8 23:31:36 2014 +0100

    Make Gimp::UI load Gtk2 with C LC_NUMERIC locale.

 UI/UI.pm |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)
---
diff --git a/UI/UI.pm b/UI/UI.pm
index c54b02a..33c3e6c 100644
--- a/UI/UI.pm
+++ b/UI/UI.pm
@@ -2,7 +2,11 @@ package Gimp::UI;
 
 use Gimp ('__');
 use Gimp::Fu;
+use POSIX qw(locale_h);
+my $locale;
+BEGIN { $locale = setlocale(LC_NUMERIC); setlocale(LC_NUMERIC, "C"); }
 use Gtk2;
+BEGIN { setlocale(LC_NUMERIC, $locale); }
 use IO::All;
 use List::Util qw(min);
 use strict;
@@ -10,6 +14,7 @@ use warnings;
 
 our (@ISA, $VERSION);
 BEGIN {
+   no locale;
    $VERSION = "2.30_05";
    eval {
       require XSLoader;