diff options
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Module-CoreList/lib/Module/CoreList.pm | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm index 12f4038d91..537dbf0e4b 100644 --- a/dist/Module-CoreList/lib/Module/CoreList.pm +++ b/dist/Module-CoreList/lib/Module/CoreList.pm @@ -7,16 +7,13 @@ $VERSION = '5.20170120'; sub _undelta { my ($delta) = @_; - my %expanded; - for my $version (sort { $a cmp $b } keys %$delta) { - my $data = $delta->{$version}; - my $from = $data->{delta_from}; - my %full = ( - ( $from ? %{$expanded{$from}} : () ), - %{$data->{changed} || {}}, - ); - delete @full{ keys %{$data->{removed}} }; - $expanded{$version} = \%full; + my (%expanded, $delta_from, $base, $changed, $removed); + for my $v (sort keys %$delta) { + ($delta_from, $changed, $removed) = @{$delta->{$v}}{qw( delta_from changed removed )}; + $base = $delta_from ? $expanded{$delta_from} : {}; + my %full = ( %$base, %{$changed || {}} ); + delete @full{ keys %$removed }; + $expanded{$v} = \%full; } return %expanded; } |