bump version to v5.25.1: now open for business

[perl5.git] / Porting / acknowledgements.pl

diff --git a/Porting/acknowledgements.pl b/Porting/acknowledgements.pl
index 2cd66c9..2d13564 100644 (file)
--- a/Porting/acknowledgements.pl
+++ b/Porting/acknowledgements.pl
@@ -125,7 +125,10 @@ 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)\$') #;
+    my $q = ($^O =~ /^(?:MSWin32|NetWare|VMS)$/io) ? '"' : "'";
+    my @filenames = qx(git diff --numstat $since_until | $^X -anle ${q}next if m{^dist/Module-CoreList} or not /\\.(?:pm|c|h|t)\\z/; print \$F[2]$q);
+    chomp @filenames;
+    my $output_code_changed = qx# git diff --shortstat $since_until -- @filenames #;
 
     return ( _changes_from_cmd ( $output ),
              _changes_from_cmd ( $output_code_changed ) );