Skip to content

Commit d7341f0

Browse files
jmdhbingos
authored andcommitted
Make perllocal.pod files reproducible (#279)
1 parent 1b8f5da commit d7341f0

File tree

2 files changed

+3
-2
lines changed

2 files changed

+3
-2
lines changed

lib/ExtUtils/Command/MM.pm

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -219,7 +219,8 @@ sub perllocal_install {
219219
: @ARGV;
220220
221221
my $pod;
222-
$pod = sprintf <<'POD', scalar(localtime), $type, $name, $name;
222+
my $time = gmtime($ENV{SOURCE_DATE_EPOCH} || time);
223+
$pod = sprintf <<'POD', scalar($time), $type, $name, $name;
223224
=head2 %s: C<%s> L<%s|%s>
224225
225226
=over 4

lib/ExtUtils/MM_Unix.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3869,7 +3869,7 @@ Obsolete, deprecated method. Not used since Version 5.21.
38693869
sub writedoc {
38703870
# --- perllocal.pod section ---
38713871
my($self,$what,$name,@attribs)=@_;
3872-
my $time = localtime;
3872+
my $time = gmtime($ENV{SOURCE_DATE_EPOCH} || time);
38733873
print "=head2 $time: $what C<$name>\n\n=over 4\n\n=item *\n\n";
38743874
print join "\n\n=item *\n\n", map("C<$_>",@attribs);
38753875
print "\n\n=back\n\n";

0 commit comments

Comments
 (0)