transliterate

commit 975878ae4986069b28835251e86f7a74f94e76aa
parent 9a617da11491d3429f901b7de156c3c89687d499
Author: lumidify <nobody@lumidify.org>
Date:   Mon, 27 Apr 2020 09:28:58 +0200

Make utf8 handling strict; small style fix

Diffstat:
M
transliterate.pl
 | 
14
+++++++-------

1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/transliterate.pl b/transliterate.pl
@@ -13,9 +13,9 @@ use warnings;
 use utf8;
 use feature 'unicode_strings';
 use open qw< :encoding(UTF-8) >;
-binmode STDIN, ":utf8";
-binmode STDOUT, ":utf8";
-binmode STDERR, ":utf8";
+binmode STDIN, ":encoding(UTF-8)";
+binmode STDOUT, ":encoding(UTF-8)";
+binmode STDERR, ":encoding(UTF-8)";
 use Unicode::Normalize;
 use Glib qw/TRUE FALSE/;
 use Gtk2 '-init';
@@ -127,10 +127,10 @@ sub prompt_unknown_word {
 		my $buffer = $text->get_buffer();
 		$buffer->set_text($ctxtr);
 		my $highlight = $buffer->create_tag("yellow_bg", "background", "yellow");
-		my $start = $buffer->get_start_iter();
-		$buffer->insert_with_tags($start, $wrd, $highlight);
-		$start = $buffer->get_start_iter();
-		$buffer->insert($start, $ctxtl);
+		my $start_iter = $buffer->get_start_iter();
+		$buffer->insert_with_tags($start_iter, $wrd, $highlight);
+		$start_iter = $buffer->get_start_iter();
+		$buffer->insert($start_iter, $ctxtl);
 		my $button = Gtk2::Button->new("Use selection as word");
 		$button->signal_connect(
 			clicked => sub {