Fix silly UTF-8 Perl bug

This commit is contained in:
Tianon Gravi 2015-09-09 09:56:34 -07:00
parent 51e19f679f
commit aa98a5649b
1 changed files with 2 additions and 1 deletions

View File

@ -155,10 +155,11 @@ while (my $image = shift) {
blob_content_length => 0, blob_content_length => 0,
); );
for my $i (0 .. $#{ $manifest->{fsLayers} }) { for my $i (0 .. $#{ $manifest->{fsLayers} }) {
my $v1 = Mojo::Util::encode 'UTF-8', $manifest->{history}[$i]{v1Compatibility};
my $data = get_layer_data( my $data = get_layer_data(
$repo, undef, $repo, undef,
$manifest->{fsLayers}[$i]{blobSum}, $manifest->{fsLayers}[$i]{blobSum},
Mojo::JSON::decode_json($manifest->{history}[$i]{v1Compatibility}), Mojo::JSON::decode_json($v1),
); );
$parentChild{$data->{parent} // ''} = $data->{id}; $parentChild{$data->{parent} // ''} = $data->{id};
$totals{$_} += $data->{$_} for keys %totals; $totals{$_} += $data->{$_} for keys %totals;