# 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 = {