mirror of
https://github.com/curl/curl.git
synced 2026-08-25 11:53:36 +03:00
perl: switch from backticks to qx()
To make it easier to find external command invocation in the source. Also drop backticks from a comment. To find external command invocations in Perl code use: ```sh git grep -E "((exec|qx|open2|open3|system)\(|open\(.+-\|)" $(<perlfiles>) ``` Refs: https://perldoc.perl.org/functions/qx https://perldoc.perl.org/perlop#Simpler-Quote-Like-Operators Closes #21994
This commit is contained in:
parent
c61f007a73
commit
9972f700a8
17 changed files with 48 additions and 48 deletions
|
|
@ -58,8 +58,8 @@ use strict;
|
|||
use warnings;
|
||||
|
||||
my $cleanup = (@ARGV && $ARGV[0] eq "cleanup");
|
||||
my @gitlog = `git log @^{/RELEASE-NOTES:.synced}..` if(!$cleanup);
|
||||
my @releasenotes = `cat RELEASE-NOTES`;
|
||||
my @gitlog = qx(git log @^{/RELEASE-NOTES:.synced}..) if(!$cleanup);
|
||||
my @releasenotes = qx(cat RELEASE-NOTES);
|
||||
|
||||
my @o; # the entire new RELEASE-NOTES
|
||||
my @refused; # [num] = [2 bits of use info]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue