diff options
| author | David Phillips <david@sighup.nz> | 2018-03-15 12:27:34 +1300 | 
|---|---|---|
| committer | David Phillips <david@sighup.nz> | 2018-03-15 12:27:34 +1300 | 
| commit | 12884b7556abfd848e42dfb40f6df55fb87c1ef9 (patch) | |
| tree | b9dc66f9e3a77784f728c841f554ff01abc19069 | |
| parent | 3778d3e19229252a2cb8260028bd737b23e27a13 (diff) | |
| download | idalius-12884b7556abfd848e42dfb40f6df55fb87c1ef9.tar.xz | |
Coerce title into UTF8 representation
| -rw-r--r-- | plugin/url_title.pm | 2 | 
1 files changed, 2 insertions, 0 deletions
diff --git a/plugin/url_title.pm b/plugin/url_title.pm index c13104d..9d96410 100644 --- a/plugin/url_title.pm +++ b/plugin/url_title.pm @@ -6,6 +6,7 @@ use strict;  use warnings;  use HTTP::Tiny;  use HTML::HeadParser; +use utf8;  my %config; @@ -49,6 +50,7 @@ sub message  	# get title and unpack from utf8 (assumption)  	my $title = $parser->header("title"); +	utf8::upgrade($title);  	return unless $title;  	my $shorturl = $url;  | 
