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

diff --git a/ChangeLog b/ChangeLog
index 3695b12fb3f1744d893cc7fba77b505627283e0f..7ab35207338649982d6636b013e34d64350bf1c2 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.
+
 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 03135748ef9866ae1ad5332f83f069d9c47f2613..04525c7bd3d5de51cdbb8fb2afd2457256d883b6 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).