read code from disk in utf-8 encoding

diff --git a/lib/MojoFacets/Code.pm b/lib/MojoFacets/Code.pm
index 7388ca4..8f52d69 100644 (file)
--- a/lib/MojoFacets/Code.pm
+++ b/lib/MojoFacets/Code.pm
@@ -30,7 +30,7 @@ sub index {
 warn "# depends $depends $found $#deps\n";
                next unless $found == $#deps;
 
-               $snippets->{$depends}->{$description} = read_file $full_path;
+               $snippets->{$depends}->{$description} = read_file $full_path, binmode => ':utf8';
        }
 
        $self->render(