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/) {

View file

@ -47,7 +47,7 @@
use strict;
use warnings;
open F, "<symbols-in-versions";
open(F, "<", 'symbols-in-versions');
sub str2num {
my ($str) = @_;