reinit the tree, so we can have metadata

1 files changed, 18 insertions, 0 deletions

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 '';