mirrors
/
postgres
mirror of https://github.com/postgres/postgres
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Avoid criticizable perl code 

Using `require` / `->import` instead of `use` avoids the use of a
"stringy eval", making for cleaner code that we don't need to silence
perlcritic about.

Per Andrew Dunstan

Discussion: https://postgr.es/m/7cd3bbbd-0216-4436-d571-8f80c9259a07@dunslane.net
This commit is contained in:
Alvaro Herrera 2023-03-09 12:02:18 +01:00
parent d00a4ad1d5
commit 590a075789
No known key found for this signature in database
GPG Key ID: 1C20ACB9D5C564AE
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/test/modules/libpq_pipeline/t/001_libpq_pipeline.pl
View File

@ -9,16 +9,16 @@ use PostgreSQL::Test::Utils;
use Test::More;
# Use Test::Differences if installed, and select unified diff output.
# No decent way to select a context line count with this;
# we could use a sub ref to allow that.
BEGIN
{
#<<< protect next line from pgperltidy
if (!eval q{ use Test::Differences; unified_diff(); 1 }) ## no critic (ProhibitStringyEval)
#>>>
{
*eq_or_diff = \&is;
}
eval {
require Test::Differences;
Test::Differences->import;
unified_diff();
};
# No dice -- fall back to 'is'
*eq_or_diff = \&is if $@;
}
my $node = PostgreSQL::Test::Cluster->new('main');