The following commit has been merged in the master branch:
commit 283183430c55796069229ea301a2c5702caa88ba
Author: James McCoy <[email protected]>
Date: Thu May 9 07:41:35 2013 -0400
Treat gpg's output as utf8, not UTF-8, to avoid warnings.
Some keys (e.g., 190E48D751174F42ABAC4DD7E2624966A269D927) have UIDs
that are incorrectly encoded as non-UTF-8, but gpg's --with-colons
forces UTF-8 output. Those incorrectly encoded keys will therefore
cause Perl to emit a warning when the strict UTF-8 layer is in use
instead of the liberal utf8 layer.
Signed-off-by: James McCoy <[email protected]>
diff --git a/scripts/who-permits-upload.pl b/scripts/who-permits-upload.pl
index bfb489b..041cf10 100755
--- a/scripts/who-permits-upload.pl
+++ b/scripts/who-permits-upload.pl
@@ -253,7 +253,7 @@ sub lookup_fingerprint
}
push(@gpg_arguments, ("--no-options", "--no-auto-check-trustdb",
"--no-default-keyring", "--list-key", "--with-colons", encode(locale =>
$fingerprint)));
open(CMD, '-|', $GPG, @gpg_arguments) || leave "$GPG: $!\n";
- binmode CMD, ':encoding(UTF-8)';
+ binmode CMD, ':utf8';
while (my $l = <CMD>)
{
if ($l =~ /^pub/)
--
Git repository for devscripts
_______________________________________________
devscripts-devel mailing list
[email protected]
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/devscripts-devel
