diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2014-04-06 21:49:23 +0100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2014-04-06 21:49:23 +0100 |
| commit | c87213450bb1abbf9ad88afb1d2a4bf513666453 (patch) | |
| tree | 07bde14dc3f87142b20b9398d6086c3854c020c2 /Porting/acknowledgements.pl | |
| parent | dc9327d7b15505dbee4c9b53023efcfb88db6a8a (diff) | |
| download | perl-c87213450bb1abbf9ad88afb1d2a4bf513666453.tar.gz | |
Porting/acknowledgements.pl - Use correct quotes in perl command-line
Diffstat (limited to 'Porting/acknowledgements.pl')
| -rw-r--r-- | Porting/acknowledgements.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Porting/acknowledgements.pl b/Porting/acknowledgements.pl index 1d5ebb8c63..2d1356489e 100644 --- a/Porting/acknowledgements.pl +++ b/Porting/acknowledgements.pl @@ -125,7 +125,8 @@ sub _round { # version sub changes_files { my $output = qx(git diff --shortstat $since_until); - 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]'); + 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 #; |