Fix some more Unicode encoding issues

PBot/AntiFlood.pm

@@ -16,6 +16,8 @@ package PBot::AntiFlood;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use feature 'switch';
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 
@@ -405,7 +407,7 @@ sub check_flood {
     }
 
     if ($self->whitelisted($channel, "$nick!$user\@$host", 'antiflood')) {
-      $self->{pbot}->{logger}->log("$nick!$user\@$host anti-flood whitelisted, disgregarding ban\n");
+      $self->{pbot}->{logger}->log("$nick!$user\@$host anti-flood whitelisted, skipping anti-flood checking\n");
       next;
     }
 

PBot/AntiSpam.pm

@@ -12,6 +12,8 @@ package PBot::AntiSpam;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use feature 'switch';
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 

PBot/BanTracker.pm

@@ -15,6 +15,8 @@ package PBot::BanTracker;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Time::HiRes qw/gettimeofday/;
 use Time::Duration;
 use Data::Dumper;

PBot/BlackList.pm

@@ -12,6 +12,8 @@ package PBot::BlackList;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use feature 'switch';
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 

PBot/BotAdminCommands.pm

@@ -12,6 +12,8 @@ package PBot::BotAdminCommands;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use feature 'switch';
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 

PBot/BotAdmins.pm

@@ -12,6 +12,8 @@ package PBot::BotAdmins;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use PBot::DualIndexHashObject;
 use PBot::BotAdminCommands;
 

PBot/ChanOpCommands.pm

@@ -12,6 +12,8 @@ package PBot::ChanOpCommands;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 use Time::Duration;
 

PBot/ChanOps.pm

@@ -12,6 +12,8 @@ package PBot::ChanOps;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use PBot::ChanOpCommands;
 use Time::HiRes qw(gettimeofday);
 

PBot/Channels.pm

@@ -12,6 +12,8 @@ package PBot::Channels;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 use PBot::HashObject;
 

PBot/Commands.pm

@@ -15,6 +15,8 @@ package PBot::Commands;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use base 'PBot::Registerable';
 
 use Carp ();

PBot/DualIndexHashObject.pm

@@ -13,6 +13,8 @@ package PBot::DualIndexHashObject;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Text::Levenshtein qw(fastdistance);
 use JSON;
 use Carp ();

PBot/EventDispatcher.pm

@@ -7,6 +7,8 @@ package PBot::EventDispatcher;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use IO::Select;
 use Carp ();
 

PBot/FactoidCommands.pm

@@ -12,6 +12,8 @@ package PBot::FactoidCommands;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 use Time::Duration;
 use Time::HiRes qw(gettimeofday);

PBot/FactoidModuleLauncher.pm

@@ -12,11 +12,14 @@ package PBot::FactoidModuleLauncher;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use POSIX qw(WNOHANG);
 use Carp ();
 use Text::Balanced qw(extract_delimited);
 use JSON;
 use IPC::Run qw/run timeout/;
+use Encode;
 
 # automatically reap children processes in background
 $SIG{CHLD} = sub { while (waitpid(-1, WNOHANG) > 0) {} };
@@ -110,11 +113,17 @@ sub execute_module {
     }
 
     my ($exitval, $stdout, $stderr) = eval {
-      my @cmdline = ("./$module", $self->{pbot}->{interpreter}->split_line($stuff->{arguments}));
+      my $args = $stuff->{arguments};
+      if (not $stuff->{args_utf8}) {
+        $args = encode('UTF-8', $args);
+      }
+      my @cmdline = ("./$module", $self->{pbot}->{interpreter}->split_line($args));
       my $timeout = $self->{pbot}->{registry}->get_value('general', 'module_timeout') // 30;
       my ($stdin, $stdout, $stderr);
       run \@cmdline, \$stdin, \$stdout, \$stderr, timeout($timeout);
       my $exitval = $? >> 8;
+      utf8::decode($stdout);
+      utf8::decode($stderr);
       return ($exitval, $stdout, $stderr);
     };
 
@@ -139,8 +148,6 @@ sub execute_module {
     $stuff->{result} = $stdout;
     chomp $stuff->{result};
 
-    utf8::decode($stuff->{result});
-
     my $json = encode_json $stuff;
     print $writer "$json\n";
     exit 0;

PBot/Factoids.pm

@@ -12,6 +12,8 @@ package PBot::Factoids;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use feature 'switch';
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 
@@ -711,6 +713,7 @@ sub execute_code_factoid_using_vm {
   $stuff->{root_channel} = $stuff->{channel};
   $stuff->{keyword} = 'compiler';
   $stuff->{arguments} = $json;
+  $stuff->{args_utf8} = 1;
 
   $self->{pbot}->{factoids}->{factoidmodulelauncher}->execute_module($stuff);
   return "";

PBot/HashObject.pm

@@ -13,6 +13,8 @@ package PBot::HashObject;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Text::Levenshtein qw(fastdistance);
 use Carp ();
 use JSON;

PBot/IRC.pm

@@ -23,6 +23,7 @@ use PBot::IRC::EventQueue; # pragma_ 2011/01/21
 use IO::Select;
 use Carp;
 
+use feature 'unicode_strings';
 
 # grab the drop-in replacement for time() from Time::HiRes, if it's available
 BEGIN {

PBot/IRC/Connection.pm

@@ -15,6 +15,8 @@
 
 package PBot::IRC::Connection; # pragma_ 2011/21/01
 
+use feature 'unicode_strings';
+
 use PBot::IRC::Event; # pragma_ 2011/21/01
 use PBot::IRC::DCC; # pragma_ 2011/21/01
 use IO::Socket;

PBot/IRC/DCC.pm

@@ -17,7 +17,7 @@ package PBot::IRC::DCC; # pragma_ 2011/21/01
 
 use strict;
 
-
+use feature 'unicode_strings';
 
 # --- #perl was here! ---
 #

PBot/IRC/Event.pm

@@ -24,6 +24,8 @@
 
 package PBot::IRC::Event; # pragma_ 2011/21/01
 
+use feature 'unicode_strings';
+
 use strict;
 our %_names;
 

PBot/IRC/EventQueue.pm

@@ -1,5 +1,7 @@
 package PBot::IRC::EventQueue; # pragma_ 2011/21/01
 
+use feature 'unicode_strings';
+
 use PBot::IRC::EventQueue::Entry; # pragma_ 2011/21/01
 
 use strict;

PBot/IRC/EventQueue/Entry.pm

@@ -2,6 +2,8 @@ package PBot::IRC::EventQueue::Entry; # pragma_ 2011/21/01
 
 use strict;
 
+use feature 'unicode_strings';
+
 my $id = 0;
 
 sub new {

PBot/IRCHandlers.pm

@@ -12,6 +12,8 @@ package PBot::IRCHandlers;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp();
 use Time::HiRes qw(gettimeofday);
 use Data::Dumper;

PBot/IgnoreList.pm

@@ -12,6 +12,8 @@ package PBot::IgnoreList;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use PBot::IgnoreListCommands;
 use Time::HiRes qw(gettimeofday);
 

PBot/IgnoreListCommands.pm

@@ -12,6 +12,8 @@ package PBot::IgnoreListCommands;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Time::HiRes qw(gettimeofday);
 use Time::Duration;
 use Carp ();

PBot/Interpreter.pm

@@ -12,6 +12,8 @@ package PBot::Interpreter;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use base 'PBot::Registerable';
 
 use Time::HiRes qw/gettimeofday/;
@@ -329,6 +331,7 @@ sub interpret {
   # set arguments as a plain string
   $stuff->{arguments} = $arguments;
   $stuff->{original_arguments} = $arguments;
+  delete $stuff->{args_utf8};
 
   # set arguments as an array
   $stuff->{arglist} = $self->make_args($arguments);
@@ -340,6 +343,7 @@ sub interpret {
     last if defined $result;
     # reset any manipulated arguments
     $stuff->{arguments} = $stuff->{original_arguments};
+    delete $stuff->{args_utf8};
   }
   return $result;
 }

PBot/LagChecker.pm

@@ -13,6 +13,8 @@ package PBot::LagChecker;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use feature 'switch';
 
 use Time::HiRes qw(gettimeofday tv_interval);

PBot/Logger.pm

@@ -7,6 +7,8 @@ package PBot::Logger;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 
 sub new {

PBot/MessageHistory.pm

@@ -16,6 +16,8 @@ package PBot::MessageHistory;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Getopt::Long qw(GetOptionsFromString);
 use Time::HiRes qw(gettimeofday tv_interval);
 use Time::Duration;

PBot/MessageHistory_SQLite.pm

@@ -12,6 +12,8 @@ package PBot::MessageHistory_SQLite;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use DBI;
 use Carp qw(shortmess);
 use Time::HiRes qw(gettimeofday);

PBot/NickList.pm

@@ -14,6 +14,8 @@ package PBot::NickList;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Text::Levenshtein qw/fastdistance/;
 use Data::Dumper;
 $Data::Dumper::Sortkeys = 1;

PBot/PBot.pm

@@ -12,6 +12,8 @@ package PBot::PBot;
 use strict;
 use warnings;
 
+use feature 'unicode_strings';
+
 # unbuffer stdout
 STDOUT->autoflush(1);
 

PBot/Plugins.pm

@@ -12,6 +12,8 @@ package PBot::Plugins;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use File::Basename;
 use Carp ();
 

PBot/Plugins/ActionTrigger.pm

@@ -7,6 +7,8 @@ package PBot::Plugins::ActionTrigger;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use feature 'switch';
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 

PBot/Plugins/AntiAway.pm

@@ -12,6 +12,8 @@ package PBot::Plugins::AntiAway;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 
 sub new {

PBot/Plugins/AntiKickAutoRejoin.pm

@@ -12,6 +12,8 @@ package PBot::Plugins::AntiKickAutoRejoin;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 use Time::HiRes qw/gettimeofday/;
 use Time::Duration;

PBot/Plugins/AntiNickSpam.pm

@@ -13,6 +13,8 @@ package PBot::Plugins::AntiNickSpam;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 use Time::Duration qw/duration/;
 use Time::HiRes qw/gettimeofday/;

PBot/Plugins/AntiRepeat.pm

@@ -10,6 +10,8 @@ use strict;
 use feature 'switch';
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 
+use feature 'unicode_strings';
+
 use Carp ();
 
 use String::LCSS qw/lcss/;

PBot/Plugins/AntiTwitter.pm

@@ -13,6 +13,8 @@ package PBot::Plugins::AntiTwitter;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 use Time::HiRes qw/gettimeofday/;
 use Time::Duration qw/duration/;

PBot/Plugins/AutoRejoin.pm

@@ -12,6 +12,8 @@ package PBot::Plugins::AutoRejoin;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 use Time::HiRes qw/gettimeofday/;
 use Time::Duration;

PBot/Plugins/Battleship.pm

@@ -10,6 +10,8 @@ use strict;
 use feature 'switch';
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 
+use feature 'unicode_strings';
+
 use Carp ();
 use Time::Duration qw/concise duration/;
 use Data::Dumper;

PBot/Plugins/Connect4.pm

@@ -10,6 +10,8 @@ use strict;
 use feature 'switch';
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 
+use feature 'unicode_strings';
+
 use Carp ();
 use Time::Duration qw/concise duration/;
 use Data::Dumper;

PBot/Plugins/Counter.pm

@@ -10,6 +10,8 @@ use strict;
 use feature 'switch';
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 
+use feature 'unicode_strings';
+
 use Carp ();
 use DBI;
 use Time::Duration qw/duration/;

PBot/Plugins/MagicCommand.pm

@@ -12,6 +12,8 @@ package PBot::Plugins::MagicCommand;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 
 sub new {

PBot/Plugins/ParseDate.pm

@@ -9,6 +9,8 @@ package PBot::Plugins::ParseDate;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 
 use Time::Duration qw/duration/;

PBot/Plugins/Quotegrabs.pm

@@ -12,6 +12,8 @@ package PBot::Plugins::Quotegrabs;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use HTML::Entities;
 use Time::Duration;
 use Time::HiRes qw(gettimeofday);

PBot/Plugins/Quotegrabs/Quotegrabs_Hashtable.pm

@@ -12,6 +12,8 @@ package PBot::Plugins::Quotegrabs::Quotegrabs_Hashtable;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use HTML::Entities;
 use Time::Duration;
 use Time::HiRes qw(gettimeofday);

PBot/Plugins/Quotegrabs/Quotegrabs_SQLite.pm

@@ -12,6 +12,8 @@ package PBot::Plugins::Quotegrabs::Quotegrabs_SQLite;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use DBI;
 use Carp qw(shortmess);
 

PBot/Plugins/RelayUnreg.pm

@@ -4,6 +4,8 @@ package PBot::Plugins::RelayUnreg;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 
 use Time::HiRes qw/gettimeofday/;

PBot/Plugins/RemindMe.pm

@@ -7,6 +7,8 @@ package PBot::Plugins::RemindMe;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use feature 'switch';
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 

PBot/Plugins/Spinach.pm

@@ -13,6 +13,8 @@ use lib "$FindBin::RealBin/../..";
 use feature 'switch';
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 
+use feature 'unicode_strings';
+
 use Carp ();
 use JSON;
 
@@ -1532,7 +1534,7 @@ sub normalize_question {
 sub normalize_text {
   my ($self, $text) = @_;
 
-  $text = unidecode decode('utf8', $text);
+  $text = unidecode $text;
 
   $text =~ s/^\s+|\s+$//g;
   $text =~ s/\s+/ /g;

PBot/Plugins/Spinach/Rank.pm

@@ -9,6 +9,8 @@ package PBot::Plugins::Spinach::Rank;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use FindBin;
 use lib "$FindBin::RealBin/../../..";
 

PBot/Plugins/Spinach/Stats.pm

@@ -9,6 +9,8 @@ package PBot::Plugins::Spinach::Stats;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use DBI;
 use Carp qw(shortmess);
 

PBot/Plugins/UrlTitles.pm

@@ -12,6 +12,8 @@ package PBot::Plugins::UrlTitles;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 
 sub new {

PBot/Plugins/_Example.pm

@@ -7,6 +7,8 @@ package PBot::Plugins::_Example;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 
 sub new {

PBot/Refresher.pm

@@ -13,6 +13,8 @@ package PBot::Refresher;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Module::Refresh;
 use Carp ();
 

PBot/Registerable.pm

@@ -12,6 +12,8 @@ package PBot::Registerable;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 
 sub new {

PBot/Registry.pm

@@ -13,6 +13,8 @@ package PBot::Registry;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Time::HiRes qw(gettimeofday);
 use Carp ();
 

PBot/RegistryCommands.pm

@@ -12,6 +12,8 @@ package PBot::RegistryCommands;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 
 sub new {

PBot/SQLiteLogger.pm

@@ -13,6 +13,8 @@ package PBot::SQLiteLogger;
 use strict;
 use warnings;
 
+use feature 'unicode_strings';
+
 use Carp;
 use Time::HiRes qw(gettimeofday);
 

PBot/SQLiteLoggerLayer.pm

@@ -12,6 +12,8 @@ package PBot::SQLiteLoggerLayer;
 use strict;
 use warnings;
 
+use feature 'unicode_strings';
+
 sub PUSHED
 {
   my ($class, $mode, $fh) = @_;

PBot/SelectHandler.pm

@@ -7,6 +7,8 @@ package PBot::SelectHandler;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use IO::Select;
 use Carp ();
 

PBot/StdinReader.pm

@@ -7,6 +7,8 @@ package PBot::StdinReader;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use POSIX qw(tcgetpgrp getpgrp);  # to check whether process is in background or foreground
 use Carp ();
 

PBot/Timer.pm

@@ -14,6 +14,8 @@ package PBot::Timer;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Carp ();
 
 our $min_timeout = 1;

PBot/Utils/Indefinite.pm

@@ -1,6 +1,8 @@
 package PBot::Utils::Indefinite;
 use 5.010; use warnings;
 
+use feature 'unicode_strings';
+
 require Exporter;
 our @ISA = qw/Exporter/;
 our @EXPORT = qw/prepend_indefinite_article select_indefinite_article/;

PBot/Utils/ParseDate.pm

@@ -7,6 +7,8 @@
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 package PBot::Utils::ParseDate;
 
 use DateTime;

PBot/Utils/SafeFilename.pm

@@ -1,5 +1,6 @@
 package PBot::Utils::SafeFilename;
 use 5.010; use warnings;
+use feature 'unicode_strings';
 
 require Exporter;
 our @ISA = qw/Exporter/;

PBot/Utils/ValidateString.pm

@@ -3,6 +3,8 @@ package PBot::Utils::ValidateString;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 require Exporter;
 our @ISA = qw/Exporter/;
 our @EXPORT = qw/validate_string/;

PBot/VERSION.pm

@@ -14,6 +14,8 @@ package PBot::VERSION;
 use strict;
 use warnings;
 
+use feature 'unicode_strings';
+
 BEGIN {
   use Exporter;
   our @ISA = 'Exporter';

PBot/WebPaste.pm

@@ -12,6 +12,8 @@ package PBot::WebPaste;
 use warnings;
 use strict;
 
+use feature 'unicode_strings';
+
 use Time::HiRes qw/gettimeofday/;
 use Time::Duration;
 use LWP::UserAgent;

modules/compiler_vm/compiler_watchdog.pl

@@ -4,7 +4,7 @@
 # License, v. 2.0. If a copy of the MPL was not distributed with this
 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
-use warnings;
+no warnings;
 use strict;
 
 use IPC::Open2;
@@ -84,6 +84,7 @@ sub execute {
 
     next if not length $line;
     <$out> and next if $line =~ m/^\(gdb\) No line \d+ in/;
+    next if $line =~ m/No default breakpoint address/;
     next if $line =~ m/^\(gdb\) No symbol table/;
     next if $line =~ m/^\[Detaching after/;
     next if $line =~ m/^\[New Thread/;

modules/compiler_vm/languages/_default.pm

@@ -3,6 +3,7 @@
 use warnings;
 use strict;
 use feature "switch";
+use feature 'unicode_strings';
 
 no if $] >= 5.018, warnings => "experimental::smartmatch";
 
@@ -15,6 +16,7 @@ use Time::HiRes qw/gettimeofday/;
 use Text::Balanced qw/extract_delimited/;
 use JSON;
 use Getopt::Long qw/GetOptionsFromArray :config pass_through no_ignore_case no_auto_abbrev/;
+use Encode;
 
 my $EXECUTE_PORT = '3333';
 
@@ -278,7 +280,7 @@ sub paste_ixio {
     return "error pasting: " . $response->status_line;
   }
 
-  my $result = $response->content;
+  my $result = $response->decoded_content;
   $result =~ s/^\s+//;
   $result =~ s/\s+$//;
   return $result;
@@ -371,7 +373,7 @@ sub execute {
   $compile_in->{'persist-key'} = $self->{'persist-key'} if length $self->{'persist-key'};
 
   my $compile_json = encode_json($compile_in);
-  $compile_json .= "\n:end:\n";
+  $compile_json .= encode('UTF-8', "\n:end:\n");
 
   my $length = length $compile_json;
   my $sent = 0;
@@ -388,7 +390,7 @@ sub execute {
     #print FILE "Sending chunk [$chunk]\n";
     $chunks_sent += length $chunk;
 
-    my $ret = syswrite($compiler, "$chunk\n");
+    my $ret = syswrite($compiler, $chunk);
 
     if (not defined $ret) {
       print FILE "Error sending: $!\n";
@@ -412,7 +414,8 @@ sub execute {
   my $got_result = 0;
 
   while(my $line = <$compiler_output>) {
-    print STDERR "Read [$line]\n";
+    utf8::decode($line);
+    print STDERR "Read from vm [$line]\n";
 
     $line =~ s/[\r\n]+$//;
     last if $line =~ /^result:end$/;

pbot.pl

@@ -12,6 +12,8 @@
 
 my $VERSION = "1.0.0";
 
+use feature 'unicode_strings';
+
 use strict;
 use warnings;