This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Module::CoreList: prepare for better legibility of upcoming patch
authorAristotle Pagaltzis <pagaltzis@gmx.de>
Thu, 23 Jun 2016 12:46:53 +0000 (14:46 +0200)
committerAristotle Pagaltzis <pagaltzis@gmx.de>
Thu, 23 Jun 2016 12:46:53 +0000 (14:46 +0200)
dist/Module-CoreList/lib/Module/CoreList.pm

index 72472d0..d2eade2 100644 (file)
@@ -12770,7 +12770,6 @@ sub is_core
 
 for my $version (sort { $a <=> $b } keys %delta) {
     my $data = $delta{$version};
 
 for my $version (sort { $a <=> $b } keys %delta) {
     my $data = $delta{$version};
-
     tie %{$version{$version}}, 'Module::CoreList::TieHashDelta',
         $data->{changed}, $data->{removed},
         $data->{delta_from} ? $version{$data->{delta_from}} : undef;
     tie %{$version{$version}}, 'Module::CoreList::TieHashDelta',
         $data->{changed}, $data->{removed},
         $data->{delta_from} ? $version{$data->{delta_from}} : undef;
@@ -13400,7 +13399,6 @@ for my $version (sort { $a <=> $b } keys %delta) {
 
 for my $version (sort { $a <=> $b } keys %deprecated) {
     my $data = $deprecated{$version};
 
 for my $version (sort { $a <=> $b } keys %deprecated) {
     my $data = $deprecated{$version};
-
     tie %{ $deprecated{$version} }, 'Module::CoreList::TieHashDelta',
         $data->{changed}, $data->{removed},
         $data->{delta_from} ? $deprecated{ $data->{delta_from} } : undef;
     tie %{ $deprecated{$version} }, 'Module::CoreList::TieHashDelta',
         $data->{changed}, $data->{removed},
         $data->{delta_from} ? $deprecated{ $data->{delta_from} } : undef;