Porting/acknowledgements.pl - Use correct quotes in perl command-line
authorSteve Hay <steve.m.hay@googlemail.com>
Sun, 6 Apr 2014 20:49:23 +0000 (21:49 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Sun, 6 Apr 2014 20:49:23 +0000 (21:49 +0100)
Porting/acknowledgements.pl

index 1d5ebb8..2d13564 100644 (file)
@@ -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 #;