rdelaage/postgresql
1
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2024-08-27 21:27:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Clear severity 5 perlcritic warnings from vcregress.pl

Browse Source 
My recent update for python3 support used some idioms that are
unapproved. This fixes them. Backpatch to all live branches like the
original.
This commit is contained in:
Andrew Dunstan 2018-05-06 07:37:05 -04:00
parent ab7825eadf
commit 289bafdbc4
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/tools/msvc/vcregress.pl
View File

@ -261,10 +261,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;
@ -276,15 +276,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;
}