[pkg-perl-tools] 01/03: dpt-gen-itp: handle encoding up From and Owner.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository pkg-perl-tools.

commit df660001d110397e5a0ddf83d011b583b4b12999
Author: gregor herrmann <gregoa at debian.org>
Date:   Tue Feb 14 20:02:48 2017 +0100

    dpt-gen-itp: handle encoding up From and Owner.
---
 scripts/gen-itp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scripts/gen-itp b/scripts/gen-itp
index 5cec207..4b4b219 100755
--- a/scripts/gen-itp
+++ b/scripts/gen-itp
@@ -15,6 +15,7 @@ use Dpkg::Control;
 use Config::Model ;
 use Config::Model::Lister ;
 use File::Slurp qw(read_file);
+use Encode;
 use Log::Log4perl qw(:easy) ;
  Log::Log4perl->easy_init($WARN);
 
@@ -37,6 +38,7 @@ my $copyright_obj = $model->instance(root_class_name => $root_model) ->config_ro
 
 my $changelog_file;
 open $changelog_file, '-|', 'dpkg-parsechangelog';
+binmode $changelog_file, ':utf8';
 my $changelog = Dpkg::Control->new();
 $changelog->parse( $changelog_file, 'debian/changelog' );
 close $changelog_file;
@@ -71,7 +73,7 @@ else {
     $owner = $source->{Maintainer};
 }
 say 'Package: wnpp';
-say 'Owner: ' . $owner;
+say 'Owner: ' . decode( 'UTF-8', $owner );
 say 'Severity: wishlist';
 
 if ( !$ENV{SECRETLY_ITP} ) {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/pkg-perl-tools.git