backtick to qx

This commit is contained in:
Viktor Szakats 2026-05-19 17:41:07 +02:00
parent 73daec6620
commit 7aa55663c3
No known key found for this signature in database
2 changed files with 3 additions and 3 deletions

View file

@ -61,7 +61,7 @@ sub storedata {
}
sub getoptions {
my @all = `$curl --help all`;
my @all = qx($curl --help all);
for my $o (@all) {
chomp $o;
if($o =~ /^ -(.), --([^ ]*) (.*)/) {

View file

@ -1226,12 +1226,12 @@ sub scanfile {
@copyright = sort {$$b{year} cmp $$a{year}} @copyright;
# if the file is modified, assume commit year this year
if(`git status -s -- "$file"` =~ /^ [MARCU]/) {
if(qx(git status -s -- "$file") =~ /^ [MARCU]/) {
$commityear = (localtime(time))[5] + 1900;
}
else {
# min-parents=1 to ignore wrong initial commit in truncated repos
my $grl = `git rev-list --max-count=1 --min-parents=1 --timestamp HEAD -- "$file"`;
my $grl = qx(git rev-list --max-count=1 --min-parents=1 --timestamp HEAD -- "$file");
if($grl) {
chomp $grl;
$commityear = (localtime((split(/ /, $grl))[0]))[5] + 1900;