From 4f2d7949f03e1c198bc888f2d05f421d35c57e21 Mon Sep 17 00:00:00 2001 From: V3n3RiX Date: Mon, 9 Oct 2017 18:53:29 +0100 Subject: reinit the tree, so we can have metadata --- .../files/mime-construct-add-date-header.patch | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 dev-perl/mime-construct/files/mime-construct-add-date-header.patch (limited to 'dev-perl/mime-construct/files') diff --git a/dev-perl/mime-construct/files/mime-construct-add-date-header.patch b/dev-perl/mime-construct/files/mime-construct-add-date-header.patch new file mode 100644 index 000000000000..fe5d6f4dc2ca --- /dev/null +++ b/dev-perl/mime-construct/files/mime-construct-add-date-header.patch @@ -0,0 +1,18 @@ +--- a/mime-construct 2012-10-07 21:01:11.849644407 +0200 ++++ b/mime-construct 2015-02-24 00:00:15.843791068 +0100 +@@ -28,6 +28,7 @@ + # - continue long header lines I construct + + use Proc::WaitStat qw(close_die); ++use Email::Date::Format qw(email_date); + + (my $Me = $0) =~ s-.*/--; + my # new line required for makemaker +@@ -491,6 +492,7 @@ + + push @output, cont "To: ", join(", ", @to), "\n" if @to; + push @output, cont "Cc: ", join(", ", @cc), "\n" if @cc; ++ push @output, cont "Date: ", email_date, "\n"; + push @output, cont "Subject: $subject\n" if $subject ne ''; + + push @output, $header if $header ne ''; -- cgit v1.2.3