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

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

diff --git a/perl/curses/curses.pl b/perl/curses/curses.pl
index 4dce2572b7b362d42b3fe8c5e0d5566a99591672..dab5618ae96e7db86af128ec6f7df4b61858308a 100755 (executable)
--- a/perl/curses/curses.pl
+++ b/perl/curses/curses.pl
@@ -5,7 +5,7 @@ use utf8;
 
 use strict;
 use warnings;
-use Curses::UI;
+use Curses::UI ;
 
 #use I18N::Collate;
 #setlocale('LC_COLLATE', 'cs_CZ.utf8');
@@ -20,7 +20,7 @@ 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);
 
 #Create a menu ^