[strip-nondeterminism] 01/01: dh_strip_nondeterminism: Log which handler procesed a file. (Closes: #876140)

[Chris Lamb]

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

lamby pushed a commit to branch master
in repository strip-nondeterminism.

commit aa9c3110421ebc6d845a06c9bd56e924c314aa57
Author: Chris Lamb <lamby at debian.org>
Date:   Tue Sep 19 07:51:22 2017 +0100

    dh_strip_nondeterminism: Log which handler procesed a file. (Closes: #876140)
---
 bin/dh_strip_nondeterminism | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/bin/dh_strip_nondeterminism b/bin/dh_strip_nondeterminism
index a363be1..ddbb126 100755
--- a/bin/dh_strip_nondeterminism
+++ b/bin/dh_strip_nondeterminism
@@ -7,6 +7,7 @@ dh_strip_nondeterminism - strip uninteresting, nondeterministic information from
 =cut
 
 use strict;
+use B;
 use File::Find;
 use Debian::Debhelper::Dh_Lib;
 use File::StripNondeterminism;
@@ -62,6 +63,13 @@ sub testfile {
 	}
 }
 
+sub handler_name {
+	eval {
+		my $obj = B::svref_2object(shift());
+		return $obj->GV->STASH->NAME;
+	} || "unknown handler";
+}
+
 File::StripNondeterminism::init();
 
 foreach my $package (@{$dh{DOPACKAGES}}) {
@@ -85,7 +93,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 
 	foreach (@nondeterministic_files) {
 		my ($path, $normalize) = @$_;
-		verbose_print("Normalizing $path");
+		verbose_print("Normalizing $path using " . handler_name($normalize));
 		eval { $normalize->($path) or nonquiet_print("Normalized $path"); 1; }
 		  or error("$path: $@");
 	}

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/reproducible/strip-nondeterminism.git