Bug#835871: libdevel-cover-perl: please make the build reproducible

[Chris Lamb]

Source: libdevel-cover-perl
Version: 1.23-1
Severity: wishlist
Tags: patch
User: reproducible-builds at lists.alioth.debian.org
Usertags: buildpath
X-Debbugs-Cc: reproducible-builds at lists.alioth.debian.org

Hi,

Whilst working on the Reproducible Builds effort [0], I noticed
that libdevel-cover-perl could not be built reproducibly.

(The $Base variable appears to be just used during tests.)

Patch attached.

 [0] https://reproducible-builds.org/


Regards,

-- 
      ,''`.
     : :'  :     Chris Lamb
     `. `'`      lamby at debian.org / chris-lamb.co.uk
       `-
-------------- next part --------------
--- a/debian/patches/reproducible-build.patch	1970-01-01 01:00:00.000000000 +0100
--- b/debian/patches/reproducible-build.patch	2016-08-29 00:27:37.260709622 +0100
@@ -0,0 +1,15 @@
+Description: Make the build reproducible
+Author: Chris Lamb <lamby at debian.org>
+Last-Update: 2016-08-29
+
+--- libdevel-cover-perl-1.23.orig/Makefile.PL
++++ libdevel-cover-perl-1.23/Makefile.PL
+@@ -23,7 +23,7 @@ my $Author  = 'paul at pjcj.net';
+ my @perlbug = ("perlbug", "-a", $Author,
+                           "-s", "Installation of Devel::Cover $Version");
+ my $Perlbug = join " ", map { / / ? "'$_'" : $_ } @perlbug;
+-my $base    = getcwd;
++my $base    = "./";
+ my %inc     = map { -d $_ ? (($_ eq "." ? $_ : Cwd::abs_path($_)) => 1) : () }
+                   @INC;
+ my @inc     = sort keys %inc;
--- a/debian/patches/series	1970-01-01 01:00:00.000000000 +0100
--- b/debian/patches/series	2016-08-29 00:27:33.560695290 +0100
@@ -0,0 +1 @@
+reproducible-build.patch