From cb4749a417ad77d1792f7dfbbff439aae88c1084 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 16 Jul 2021 10:01:29 +0200 Subject: [PATCH] Bug 25078: Fix 'Wide character' from CLI Signed-off-by: Kyle M Hall Signed-off-by: Jonathan Druart --- installer/data/mysql/db_revs/210600000.pl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/installer/data/mysql/db_revs/210600000.pl b/installer/data/mysql/db_revs/210600000.pl index 2e120d4193..a9d08fef02 100644 --- a/installer/data/mysql/db_revs/210600000.pl +++ b/installer/data/mysql/db_revs/210600000.pl @@ -1,5 +1,6 @@ use Modern::Perl; use utf8; +use Encode qw( encode_utf8 ); { bug_number => undef, @@ -8,9 +9,9 @@ use utf8; my ($args) = @_; my ($dbh, $out) = @$args{qw(dbh out)}; - say $out '🎵 Run, rabbit run. 🎶'; - say $out 'Dig that hole, forget the sun,'; - say $out 'And when at last the work is done'; - say $out "Don't sit down it's time to dig another one."; + say $out encode_utf8 '🎵 Run, rabbit run. 🎶'; + say $out encode_utf8 'Dig that hole, forget the sun,'; + say $out encode_utf8 'And when at last the work is done'; + say $out encode_utf8 "Don't sit down it's time to dig another one."; }, } -- 2.39.5