[libwx-perl] 01/02: Try harder to make the package build reproducibly, by sorting EXPORT_OK in Wx_Exp.pm.

[Intrigeri]

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

intrigeri pushed a commit to branch master
in repository libwx-perl.

commit 028fd68f3f11b9968b02860c65b627af180048e0
Author: intrigeri <intrigeri at boum.org>
Date:   Sun Aug 6 18:24:54 2017 +0000

    Try harder to make the package build reproducibly, by sorting EXPORT_OK in Wx_Exp.pm.
---
 debian/patches/reproducible_output.patch | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/debian/patches/reproducible_output.patch b/debian/patches/reproducible_output.patch
index 2639295..5479e1a 100644
--- a/debian/patches/reproducible_output.patch
+++ b/debian/patches/reproducible_output.patch
@@ -35,27 +35,36 @@ Bug-Debian: https://bugs.debian.org/787265
  Wx::build::Options->get_makemaker_options( 'saved' );
 --- a/script/make_exp_list.pl
 +++ b/script/make_exp_list.pl
-@@ -95,7 +95,11 @@
+@@ -15,6 +15,8 @@
+ # @EXPORT_OK and %EXPORT_TAGS for Wx.pm (constants in Constant.xs)
+ #
+ 
++use List::Util qw(uniq);
++
+ my $ext = shift @ARGV;
+ 
+ my $parser;
+@@ -95,7 +97,11 @@ print OUT <<EOT;
  
  package ${package};
  
 -push \@EXPORT_OK, qw(@{$packages{$package}{exp_ok}});
 +push \@EXPORT_OK, qw(
 +EOT
-+print OUT join("\n", sort @{$packages{$package}{exp_ok}});
++print OUT join("\n", sort(uniq(@{$packages{$package}{exp_ok}})));
 +print OUT <<EOT;
 +);
  
  \$EXPORT_TAGS{'everything'} = \\\@EXPORT_OK;
  
-@@ -104,7 +108,11 @@
+@@ -104,7 +110,11 @@ EOT
    foreach my $tag ( sort keys %{ $packages{$package}{tags} } ) {
      next unless length $tag;
      print OUT <<EOT;
 -\$EXPORT_TAGS{'$tag'} = [ qw(@{ $packages{$package}{tags}{$tag} }) ];
 +\$EXPORT_TAGS{'$tag'} = [ qw(
 +EOT
-+print OUT join("\n", sort @{ $packages{$package}{tags}{$tag} });
++print OUT join("\n", sort(uniq(@{ $packages{$package}{tags}{$tag} })));
 +print OUT <<EOT;
 +) ];
  EOT

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