Fixes

Author: Leont

lib/Module/Install.pm

@@ -443,11 +443,6 @@ sub _CLASS {
 	) ? $_[0] : undef;
 }
 
-sub _to_bytes {
-	utf8::encode($_[0]) if utf8::is_utf8 $_[0];
-	return $_[0];
-}
-
 1;
 
 # Copyright 2008 - 2012 Adam Kennedy.

lib/Module/Install/Metadata.pm

@@ -628,12 +628,7 @@ sub add_metadata {
     for my $key (keys %hash) {
         warn "add_metadata: $key is not prefixed with 'x_'.\n" .
              "Use appopriate function to add non-private metadata.\n" unless $key =~ /^x_/;
-        $self->{values}{$key} = 
-        	ref $hash{$key} eq "ARRAY"
-        	?
-        	[ map { Module::Install::_to_bytes($_) } @{$hash{$key}} ]
-        	:
-        	Module::Install::_to_bytes($hash{$key});
+        $self->{values}{$key} = $hash{$key};
     }
 }
 

t/31_add_metadata.t

@@ -29,6 +29,7 @@ END_DSL
     ok( -f $file);
     my $yaml = YAML::Tiny::LoadFile($file);
     ok( $yaml->{x_foo} && $yaml->{x_foo} eq 'bar' );
+    use utf8;
     is( $yaml->{x_author}, "Alberto Simões");
     ok( kill_dist(), 'kill_dist' );
 }