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:
parent
25dda58f04
commit
cb4749a417
|
|
@ -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.";
|
||||
},
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue