Commit Diff

Commit:
7945ad342a011411ed99168161831108a8be5b09
From:
Omar Polo <op@omarpolo.com>
Date:
Message:
amused-monitor: fix usage with utf8 paths
Actions:
Patch | Tree
commit - 3ac93df95b6d9f98ec4b210a7bc69f64153bdd85
commit + 7945ad342a011411ed99168161831108a8be5b09
blob - 660a18a75c6027aeded2941a407da08b4910224a
blob + 3e33648f73e77bfd7a489550d90f5bf9f25d99cf
--- contrib/amused-monitor
+++ contrib/amused-monitor
@@ -17,9 +17,12 @@
 use strict;
 use warnings;
 use v5.12;
+
+use open ":std", ":encoding(UTF-8)";
+use utf8;
 
 use Curses;
-use POSIX ":sys_wait_h";
+use POSIX qw(:sys_wait_h setlocale LC_ALL);
 use Text::CharWidth qw(mbswidth);
 use IO::Poll qw(POLLIN);
 use Time::HiRes qw(clock_gettime CLOCK_MONOTONIC);
@@ -301,6 +304,7 @@ GetOptions(
 my $mpid = open(my $monitor, "-|", "amused", "monitor")
     or die "can't spawn amused monitor";
 
+setlocale(LC_ALL, "");
 initscr;
 start_color;
 use_default_colors;