From 992aed117c09476b7907f0eff1bb8ddfbef1b7b4 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Mon, 20 Jul 2015 10:39:16 +0100
Subject: [PATCH] Tweak to handle header differently.

---
 Webperl/Message/Transport/Email.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Webperl/Message/Transport/Email.pm b/Webperl/Message/Transport/Email.pm
index c38b9ca..dc11588 100644
--- a/Webperl/Message/Transport/Email.pm
+++ b/Webperl/Message/Transport/Email.pm
@@ -174,9 +174,9 @@ sub deliver {
                                                                                                                                      "images"   => "email/md_images.tem",
                                                                                                                                      "markdown" => "email/markdown.tem"}));
 
-        $email = Email::MIME -> create_html(header_str => [ From => $from,
-                                                            To   => $to,
-                                                            Subject => Encode::encode("iso-8859-1", decode_entities($message -> {"subject"})),
+        $email = Email::MIME -> create_html(header => [ From => $from,
+                                                        To   => $to,
+                                                        Subject => Encode::encode("iso-8859-1", decode_entities($message -> {"subject"})),
                                             ],
                                             embed     => 0,
                                             body      => $html_body,