diff options
author | Abir Viqar <abiviq@hushmail.com> | 2013-10-22 13:31:18 -0400 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2013-12-19 17:26:25 +0000 |
commit | 3bb80250e94a706e7c07159410002bd1a5299d4f (patch) | |
tree | 8b4550badef829468339cdb8ed87ba73338676da /Porting/corelist-perldelta.pl | |
parent | 5c51ce30bd69b2b9dfdd34fbdb12a1ca3dfb789e (diff) | |
download | perl-3bb80250e94a706e7c07159410002bd1a5299d4f.tar.gz |
Porting/corelist-perldelta.pl - Make do_generate use DeltaUpdater
DeltaUpdater::sections_to_pod() makes generate_section() redundant
Diffstat (limited to 'Porting/corelist-perldelta.pl')
-rwxr-xr-x | Porting/corelist-perldelta.pl | 52 |
1 files changed, 7 insertions, 45 deletions
diff --git a/Porting/corelist-perldelta.pl b/Porting/corelist-perldelta.pl index de761497af..a91d27e9ef 100755 --- a/Porting/corelist-perldelta.pl +++ b/Porting/corelist-perldelta.pl @@ -48,48 +48,6 @@ my %titles = ( my $deprecated; -#--------------------------------------------------------------------------# - -sub added { - my ($mod, $old_v, $new_v) = @_; - say "=item *\n"; - say "L<$mod> $new_v has been added to the Perl core.\n"; -} - -sub updated { - my ($mod, $old_v, $new_v) = @_; - say "=item *\n"; - say "L<$mod> has been upgraded from version $old_v to $new_v.\n"; - if ( $deprecated->{$mod} ) { - say "NOTE: L<$mod> is deprecated and may be removed from a future version of Perl.\n"; - } -} - -sub removed { - my ($mod, $old_v, $new_v) = @_; - say "=item *\n"; - say "C<$mod> has been removed from the Perl core. Prior version was $old_v.\n"; -} - -sub generate_section { - my ($title, $item_sub, @mods ) = @_; - return unless @mods; - - say "=head2 $title\n"; - say "=over 4\n"; - - for my $tuple ( sort { lc($a->[0]) cmp lc($b->[0]) } @mods ) { - my ($mod,$old_v,$new_v) = @$tuple; - $old_v //= q('undef'); - $new_v //= q('undef'); - $item_sub->($mod, $old_v, $new_v); - } - - say "=back\n"; -} - -#--------------------------------------------------------------------------# - sub run { my %opt = (mode => 'generate'); @@ -311,9 +269,13 @@ sub do_generate { say "\t$_" for @{$manuallyCheck}; } - generate_section( $titles{new}, \&added, values %{$added} ); - generate_section( $titles{updated}, \&updated, values %{$updated} ); - generate_section( $titles{removed}, \&removed, values %{$removed} ); + my $data = { + new => $added, + updated => $updated, + #removed => $removed, ignore removed for now + }; + + say DeltaUpdater::sections_to_pod($data) } sub do_check { |