Now making use of new utf8 support when using Curses::UI

[mirrors/Programs.git] / perl / curses / textentry.pl

diff --git a/perl/curses/textentry.pl b/perl/curses/textentry.pl
index ed7a075dde2c5f21811d8213233c10895188dceb..886852ef72bfeac03561c27e44d022fb8e813470 100755 (executable)
--- a/perl/curses/textentry.pl
+++ b/perl/curses/textentry.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 
            use Curses::UI;
-           my $cui = new Curses::UI( -color_support => 1, -compat => 0 );
+           my $cui = new Curses::UI(-color_support => 1, -compat => 0, -utf8 => 1);
            my $win = $cui->add('window_id', 'Window');
 
            my $textentry = $win->add(