Fix sending emails with UTF-8 characters in them with Perl >= 5.18.

diff --git a/ChangeLog b/ChangeLog
index 27d87470d3fa17307650688cb67935e49b2eeda4..b902fce9a14c4b9b341a173aa30244320772a813 100644 (file)
--- 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.
+
 2014-09-11     Andrew Ruthven
        Spotted that if the next recording is in 30 hours, then it is
        displayed as "0 Days, 3". Correct it so it'll be displayed

diff --git a/bin/mythtv-status b/bin/mythtv-status
index 58024136274ac9b8a3e6dd689a69604e60604d33..4ff6c9b0056545ddf665551f99ae29d50abc5d0b 100755 (executable)
--- 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 acef673061a1f095e1e64f9f660d7d422c8a2582..d3b7585c1327e284b33b45cc163077f0dac17546 100644 (file)
--- 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).