View | Details | Raw Unified | Return to bug 25078
Collapse All | Expand All

(-)a/installer/data/mysql/db_revs/210600000.pl (-5 / +5 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use utf8;
2
use utf8;
3
use Encode qw( encode_utf8 );
3
4
4
{
5
{
5
    bug_number => undef,
6
    bug_number => undef,
Lines 8-16 use utf8; Link Here
8
        my ($args) = @_;
9
        my ($args) = @_;
9
        my ($dbh, $out) = @$args{qw(dbh out)};
10
        my ($dbh, $out) = @$args{qw(dbh out)};
10
11
11
        say $out '🎵 Run, rabbit run. 🎶';
12
        say $out encode_utf8 '🎵 Run, rabbit run. 🎶';
12
        say $out 'Dig that hole, forget the sun,';
13
        say $out encode_utf8 'Dig that hole, forget the sun,';
13
        say $out 'And when at last the work is done';
14
        say $out encode_utf8 'And when at last the work is done';
14
        say $out "Don't sit down it's time to dig another one.";
15
        say $out encode_utf8 "Don't sit down it's time to dig another one.";
15
    },
16
    },
16
}
17
}
17
- 

Return to bug 25078