Clear severity 5 perlcritic warnings from vcregress.pl

adunstan · adunstan · commit 0e6114be8c2d · 2018-05-06T07:39:05.000-04:00
My recent update for python3 support used some idioms that are
unapproved. This fixes them. Backpatch to all live branches like the
original.
diff --git a/src/tools/msvc/vcregress.pl b/src/tools/msvc/vcregress.pl
@@ -262,10 +262,10 @@ sub mangle_plpython3
 			my @files = glob("$dir/$test.$extension $dir/${test}_[0-9].$extension");
 			foreach my $file (@files)
 			{
-				open(my $handle, "$file") || die "test file $file not found";
+				open(my $handle, '<', $file) || die "test file $file not found";
 				my $contents = <$handle>;
 				close($handle);
-				map
+				do
 				{
 					s/except ([[:alpha:]][[:alpha:].]*), *([[:alpha:]][[:alpha:]]*):/except $1 as $2:/g;
 					s/<type 'exceptions\.([[:alpha:]]*)'>/<class '$1'>/g;
@@ -277,15 +277,16 @@ sub mangle_plpython3
 					s/LANGUAGE plpython2?u/LANGUAGE plpython3u/g;
 					s/EXTENSION ([^ ]*_)*plpython2?u/EXTENSION $1plpython3u/g;
 					s/installing required extension "plpython2u"/installing required extension "plpython3u"/g;
-				} $contents;
+				} for ($contents);
 				my $base = basename $file;
-				open($handle, ">$dir/python3/$base") || die "opening python 3 file for $file";
+				open($handle, '>', "$dir/python3/$base") ||
+				  die "opening python 3 file for $file";
 				print $handle $contents;
 				close($handle);
 			}
 		}
 	}
-	map { $_ =~ s!^!python3/!; } @$tests;
+	do { s!^!python3/!; } foreach(@$tests);
 	return @$tests;
 }
 

Original file line number	Diff line number	Diff line change
`@@ -262,10 +262,10 @@ sub mangle_plpython3`
`262`	`262`	`my @files = glob("$dir/$test.$extension $dir/${test}_[0-9].$extension");`
`263`	`263`	`foreach my $file (@files)`
`264`	`264`	`{`
`265`		`- open(my $handle, "$file") \|\| die "test file $file not found";`
	`265`	`+ open(my $handle, '<', $file) \|\| die "test file $file not found";`
`266`	`266`	`my $contents = <$handle>;`
`267`	`267`	`close($handle);`
`268`		`- map`
	`268`	`+ do`
`269`	`269`	`{`
`270`	`270`	`s/except ([[:alpha:]][[:alpha:].]), ([[:alpha:]][[:alpha:]]*):/except $1 as $2:/g;`
`271`	`271`	`s/<type 'exceptions\.([[:alpha:]]*)'>/<class '$1'>/g;`
`@@ -277,15 +277,16 @@ sub mangle_plpython3`
`277`	`277`	`s/LANGUAGE plpython2?u/LANGUAGE plpython3u/g;`
`278`	`278`	`s/EXTENSION ([^ ]_)plpython2?u/EXTENSION $1plpython3u/g;`
`279`	`279`	`s/installing required extension "plpython2u"/installing required extension "plpython3u"/g;`
`280`		`- } $contents;`
	`280`	`+ } for ($contents);`
`281`	`281`	`my $base = basename $file;`
`282`		`- open($handle, ">$dir/python3/$base") \|\| die "opening python 3 file for $file";`
	`282`	`+ open($handle, '>', "$dir/python3/$base") \|\|`
	`283`	`+ die "opening python 3 file for $file";`
`283`	`284`	`print $handle $contents;`
`284`	`285`	`close($handle);`
`285`	`286`	`}`
`286`	`287`	`}`
`287`	`288`	`}`
`288`		`- map { $_ =~ s!^!python3/!; } @$tests;`
	`289`	`+ do { s!^!python3/!; } foreach(@$tests);`
`289`	`290`	`return @$tests;`
`290`	`291`	`}`
`291`	`292`