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

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

diff --git a/perl/curses/edit.pl b/perl/curses/edit.pl
index 4f424d19835a0f41d568271841d783f0f505faa6..3f8681f1b1aad0e6d2e8494c5206046965e76ddc 100755 (executable)
--- a/perl/curses/edit.pl
+++ b/perl/curses/edit.pl
@@ -14,7 +14,7 @@ use Curses::UI;
 our $path = "/home";
 our $file = "";
 
-my $cui = new Curses::UI(-color_support => 1, -language => "czech");
+my $cui = new Curses::UI(-color_support => 1, -language => "czech", -utf8 => 1);
 my @menu = (
     {
          -label => 'Soubor', -submenu =>