In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/7ba8970dd3a78097012503f0c4b1900e36b571a9?hp=e56a566bdb680e52902a515528e316ab1d718662>
- Log ----------------------------------------------------------------- commit 7ba8970dd3a78097012503f0c4b1900e36b571a9 Author: Steve Hay <[email protected]> Date: Fri Aug 10 17:54:51 2012 +0100 Fix command-line argument quoting in Porting/cmpVERSION.pl Windows, NetWare and VMS want double-quotes, other OSes want single quotes. ----------------------------------------------------------------------- Summary of changes: Porting/cmpVERSION.pl | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl index 8d39d74..97c78b2 100755 --- a/Porting/cmpVERSION.pl +++ b/Porting/cmpVERSION.pl @@ -146,6 +146,7 @@ printf "1..%d\n" => scalar keys %module_diffs if $tap; my $count; my $diff_cmd = "git --no-pager diff $tag_to_compare "; +my $q = ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') ? '"' : "'"; my (@diff); foreach my $pm_file (sort keys %module_diffs) { @@ -166,7 +167,7 @@ foreach my $pm_file (sort keys %module_diffs) { } else { if ($tap) { foreach (sort @{$module_diffs{$pm_file}}) { - print "# $_" for `$diff_cmd '$_'`; + print "# $_" for `$diff_cmd $q$_$q`; } if (exists $skip_versions{$pm_file} and grep $pm_version eq $_, @{$skip_versions{$pm_file}}) { @@ -190,6 +191,6 @@ sub get_file_from_git { if ($diffs) { for (sort @diff) { print "\n"; - system "$diff_cmd '$_'"; + system "$diff_cmd $q$_$q"; } } -- Perl5 Master Repository
