file encoding issue RexOps/Rex#1274

file_encoding.pl

#!/usr/bin/env perl

use strict;
use warnings;

use utf8;
open my $utf8, '>', '/tmp/use_utf8file';
print $utf8 'Daniel Böhmer';
close $utf8;

no utf8;
open my $not_utf8, '>', '/tmp/no_utf8file';
print $not_utf8 'Daniel Böhmer';
close $not_utf8;

# check results with this command:
# file --mime-encoding *_utf8file

Rexfile

use Rex;

task 'files', sub {
    # utf8 disabled
    say 'disabling utf8 pragma';
    no utf8;

    my $file = '/tmp/test';

    file $file, content => 'Daniel Böhmer';

    say 'file content:';
    say cat $file;

    say 'encoding:';
    say run "file $file";

    say '-' x 10;

    # utf8 enabled
    say 'enabling utf8 pragma';
    use utf8;

    my $file = '/tmp/test';

    file $file, content => 'Daniel Böhmer';

    say 'file content:';
    say cat $file;

    say 'encoding:';
    say run "file $file";
};