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.

1 files changed, 9 insertions, 9 deletions

diff --git a/tests/version-scan.pl b/tests/version-scan.pl
index 156502480..3c055d9b3 100755
--- a/tests/version-scan.pl
+++ b/tests/version-scan.pl
@@ -39,8 +39,8 @@ my %manname;
 my %sourcename;
 my $error=0;
 
-open(M, "<$manpage");
-while(<M>) {
+open(my $m, "<", "$manpage");
+while(<$m>) {
     if($_ =~ / mask bit: (CURL_VERSION_[A-Z0-9_]+)/i) {
         $manversion{$1}++;
     }
@@ -48,23 +48,23 @@ while(<M>) {
         $manname{$1}++;
     }
 }
-close(M);
+close($m);
 
-open(H, "<$header");
-while(<H>) {
+open(my $h, "<", "$header");
+while(<$h>) {
     if($_ =~ /^\#define (CURL_VERSION_[A-Z0-9_]+)/i) {
         $headerversion{$1}++;
     }
 }
-close(H);
+close($h);
 
-open(S, "<$source");
-while(<S>) {
+open(my $s, "<", "$source");
+while(<$s>) {
     if($_ =~ /FEATURE\("([^"]*)"/) {
       $sourcename{$1}++;
     }
 }
-close(S);
+close($s);
 
 for my $h (keys %headerversion) {
     if(!$manversion{$h}) {