tidy-up: fix Perl syntax and formatting nits

Closes #22376
This commit is contained in:
Viktor Szakats 2026-06-29 19:01:04 +02:00
parent 4b0cf12ab1
commit 0ada20387c
No known key found for this signature in database
30 changed files with 102 additions and 102 deletions

View file

@ -41,7 +41,7 @@
use strict;
use warnings;
open(S, "<../libcurl/symbols-in-versions") or die;
open(S, "<", '../libcurl/symbols-in-versions') or die;
my %doc;
my %rem;
@ -70,7 +70,7 @@ sub age {
}
my %used;
open(C, "<$ARGV[0]") or die;
open(C, "<", $ARGV[0]) or die;
while(<C>) {
if(/\W(CURL[_A-Z0-9v]+)\W/) {