diff options
| author | Dan Fandrich <dan@coneharvesters.com> | 2023-03-28 13:29:36 -0700 |
|---|---|---|
| committer | Dan Fandrich <dan@coneharvesters.com> | 2023-03-30 09:53:57 -0700 |
| commit | 0e3ae25337152b14c75e4fcc0d6f4da8f9850e3c (patch) | |
| tree | 3d48f3b2b9cdfbeb9fc111bb5e72f4f001ae52b0 /tests/mem-include-scan.pl | |
| parent | b133f70a52703ccc6469280ae141643bcc06a685 (diff) | |
| download | curl-0e3ae25337152b14c75e4fcc0d6f4da8f9850e3c.tar.gz | |
tests: switch to 3-argument open in test suite
The perl 2-argument open has been considered not-quite-deprecated since
the 3-argument form was introduced almost a quarter century ago.
Diffstat (limited to 'tests/mem-include-scan.pl')
| -rwxr-xr-x | tests/mem-include-scan.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/mem-include-scan.pl b/tests/mem-include-scan.pl index e1c038e1b..e808c2e8c 100755 --- a/tests/mem-include-scan.pl +++ b/tests/mem-include-scan.pl @@ -43,8 +43,8 @@ sub scanfile { print STDERR "checking $file...\n"; - open(F, "<$file"); - while(<F>) { + open(my $f, "<", "$file"); + while(<$f>) { if($_ =~ /\W(free|alloc|strdup)\(/) { $memfunc++; } @@ -56,14 +56,14 @@ sub scanfile { } elsif($_ =~ /mem-include-scan/) { # free pass - close(F); + close($f); return 0; } if($memfunc && $memdebug && $curlmem) { last; } } - close(F); + close($f); if($memfunc) { |