# HG changeset patch
# User Matthias Förste foerste@schlittermann.de
# Date 1329747666 -3600
# Node ID 81214d8c7c1eb425db1143ff613783176e807a94
# Parent  a31ece02f311db7bdc41c102ef916f952a4c4035
setlocale(NULL) should be more reliable than $ENV{LANG}

diff -r a31ece02f311 -r 81214d8c7c1e bin/maybe-notify-uploader
--- a/bin/maybe-notify-uploader	Mon Feb 20 15:17:25 2012 +0100
+++ b/bin/maybe-notify-uploader	Mon Feb 20 15:21:06 2012 +0100
@@ -2,6 +2,7 @@
 
 use Mail::Sendmail;
 use MIME::EncWords qw(encode_mimewords);
+use POSIX qw(locale_h);
 
 my ($result, $codename, $source, $version, $changes) = @ARGV[0..4];
 
@@ -15,7 +16,7 @@
 }
 
 $r =~ $pat or $r = $fallback;
-$r = encode_mimewords($r, (Charset => $1)) if (defined $ENV{LANG} and $ENV{LANG} =~ /.*\.([^.]+)$/);
+$r = encode_mimewords($r, (Charset => $1)) if setlocale(NULL) =~ /.*\.([^.]+)$/;
 
 my $mail = {