Bug 25078: Fix 'Wide character' from CLI

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2021-07-16 10:01:29 +02:00
parent 25dda58f04
commit cb4749a417
1 changed files with 5 additions and 4 deletions

View File

@ -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.";
},
}