tMake utf8 handling strict; small style fix - transliterate - Transliteration engine
HTML git clone git://lumidify.org/transliterate.git
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
DIR commit 975878ae4986069b28835251e86f7a74f94e76aa
DIR parent 9a617da11491d3429f901b7de156c3c89687d499
HTML 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(-)
---
DIR diff --git a/transliterate.pl b/transliterate.pl
t@@ -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';
t@@ -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 {