diff options
author | Andrew Dunstan <andrew@dunslane.net> | 2018-05-06 07:37:05 -0400 |
---|---|---|
committer | Andrew Dunstan <andrew@dunslane.net> | 2018-05-06 07:39:51 -0400 |
commit | 3b17d4b9d229d5a6e6ca6d6eaf3cb0710aa9d9af (patch) | |
tree | 2078ed34bd8acbb700f17e58fff919755e8f3fe7 | |
parent | b812d63725724ed33c535e7643703c7f2f6aa7c5 (diff) | |
download | postgresql-3b17d4b9d229d5a6e6ca6d6eaf3cb0710aa9d9af.tar.gz |
Clear severity 5 perlcritic warnings from vcregress.pl
My recent update for python3 support used some idioms that are
unapproved. This fixes them. Backpatch to all live branches like the
original.
-rw-r--r-- | src/tools/msvc/vcregress.pl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/tools/msvc/vcregress.pl b/src/tools/msvc/vcregress.pl index b41011f4d1..2188bfed2c 100644 --- a/src/tools/msvc/vcregress.pl +++ b/src/tools/msvc/vcregress.pl @@ -260,10 +260,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; @@ -275,15 +275,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; } |