From b9d5e6a114b2818922f7df6316ca40f9314de91d Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Tue, 2 Dec 2014 20:30:26 +1300
Subject: [PATCH] Fix sending emails with UTF-8 characters in them with Perl >=
 5.18.

---
 ChangeLog         | 4 ++++
 bin/mythtv-status | 6 +++---
 debian/changelog  | 6 ++++++
 3 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 3695b12..7ab3520 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2014-12-02	Andrew Ruthven
+	Add in more UTF-8 encodings as required for Perl v5.18, thanks to
+	Jan Schneider for reporting the UTF-8 issue.
+
 2013-10-28	Andrew Ruthven
         Guard against zero total disk space, this affected Werner Mahr.
 
diff --git a/bin/mythtv-status b/bin/mythtv-status
index 0313574..04525c7 100755
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -85,7 +85,7 @@ my @size_thresholds = (
 
 my $return_code_only = 0;
 
-my $VERSION = '0.10.4';
+my $VERSION = '0.10.5';
 
 # Some display blocks are disabled by default:
 $c->{'display'}{'Shows due to Auto Expire'} = 0;
@@ -681,10 +681,10 @@ if ($return_code_only) {
 
     my $mail = MIME::Entity->build(
       To      => $c->{'email'},
-      Subject => $title . (defined $suffix ? " - $suffix" : ''),
+      Subject => encode('UTF-8', $title . (defined $suffix ? " - $suffix" : '')),
       Charset => $charset,
       Encoding=> "quoted-printable",
-      Data    => $output
+      Data    => encode('UTF-8', $output),
       );
 
     $mail->send('sendmail');
diff --git a/debian/changelog b/debian/changelog
index acef673..d3b7585 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+mythtv-status (0.10.5-1) unstable; urgency=low
+
+  * Fix sending emails with UTF-8 characters in them with Perl >= 5.18.
+
+ -- Andrew Ruthven <andrew@etc.gen.nz>  Tue, 02 Dec 2014 20:29:13 +1300
+
 mythtv-status (0.10.4-1) unstable; urgency=low
 
   * New upstream release (Closes: #724166, #709377, #709449).
-- 
2.30.2