aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/patches/perl-source-date-epoch.patch
blob: 37330c9537d8fca5da914b4dbdf4f24fe7474dda (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Adapted from <https://bugs.debian.org/801621>.
Make Pod::Man honor the SOURCE_DATE_EPOCH environment variable.

--- perl-5.22.0/cpan/podlators/lib/Pod/Man.pm	2015-12-12 22:33:03.321787590 +0100
+++ perl-5.22.0/cpan/podlators/lib/Pod/Man.pm	2015-12-12 22:36:33.367361338 +0100
@@ -884,7 +884,12 @@ sub devise_date {
     my ($self) = @_;
     my $input = $self->source_filename;
     my $time;
-    if ($input) {
+
+    if (defined($ENV{SOURCE_DATE_EPOCH}) &&
+        $ENV{SOURCE_DATE_EPOCH} !~ /\D/) {
+        $time = $ENV{SOURCE_DATE_EPOCH};
+    }
+    elsif ($input) {
         $time = (stat $input)[9] || time;
     } else {
         $time = time;