From 636564c5b1e7e39a81bb531739bae9a7fe32d5f2 Mon Sep 17 00:00:00 2001 From: Gavin Shelley Date: Mon, 10 Feb 2014 18:19:14 -0500 Subject: provide a more limited change-count for acknowledgements.pl --- Porting/acknowledgements.pl | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'Porting/acknowledgements.pl') diff --git a/Porting/acknowledgements.pl b/Porting/acknowledgements.pl index 20941092cc..2cd66c9339 100644 --- a/Porting/acknowledgements.pl +++ b/Porting/acknowledgements.pl @@ -38,9 +38,11 @@ my $previous_version = previous_version(); my $next_version = next_version(); my $development_time = development_time(); -my ( $changes, $files ) = changes_files(); +my ( $changes, $files, $code_changes, $code_files ) = changes_files(); my $formatted_changes = commify( round($changes) ); my $formatted_files = commify( round($files) ); +my $formatted_code_changes = commify( round($code_changes) ); +my $formatted_code_files = commify( round($code_files) ); my $authors = authors(); my $nauthors = $authors =~ tr/,/,/; @@ -51,6 +53,10 @@ my $text since Perl $previous_version and contains approximately $formatted_changes lines of changes across $formatted_files files from $nauthors authors. +Excluding auto-generated files, documentation and release tools, there +were approximately $formatted_code_changes lines of changes to +$formatted_code_files .pm, .t, .c and .h files. + Perl continues to flourish into its third decade thanks to a vibrant community of users and developers. The following people are known to have contributed the improvements that became Perl $next_version: @@ -119,6 +125,14 @@ sub _round { # version sub changes_files { my $output = qx(git diff --shortstat $since_until); + my $output_code_changed = qx# git diff --shortstat $since_until -- \$(git diff --numstat $since_until |awk '{print \$3}' | grep -v ^dist/Module-CoreList | grep -E '\.(pm|c|h|t)\$') #; + + return ( _changes_from_cmd ( $output ), + _changes_from_cmd ( $output_code_changed ) ); +} + +sub _changes_from_cmd { + my $output = shift || die "No git diff command output"; # 585 files changed, 156329 insertions(+), 53586 deletions(-) my ( $files, $insertions, $deletions ) -- cgit v1.2.1