acknowledgements: use $^X when running sub-perl
authorRicardo Signes <rjbs@cpan.org>
Mon, 10 Feb 2014 23:43:53 +0000 (18:43 -0500)
committerRicardo Signes <rjbs@cpan.org>
Mon, 10 Feb 2014 23:43:57 +0000 (18:43 -0500)
Porting/acknowledgements.pl

index 13718a7..1d5ebb8 100644 (file)
@@ -125,7 +125,7 @@ sub _round {
 # version
 sub changes_files {
     my $output = qx(git diff --shortstat $since_until);
-    my @filenames = qx(git diff --numstat $since_until | perl -anle 'next if m{^dist/Module-CoreList} or not /\\.(?:pm|c|h|t)\\z/; print \$F[2]');
+    my @filenames = qx(git diff --numstat $since_until | $^X -anle 'next if m{^dist/Module-CoreList} or not /\\.(?:pm|c|h|t)\\z/; print \$F[2]');
     chomp @filenames;
     my $output_code_changed = qx# git diff --shortstat $since_until -- @filenames #;