database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-06-30 21:42:05 +03:00
Code Activity

Teach RPM the package name provided in Perl alias packages.

Browse Source 
When commit 1185be3554 introduced
installation of a file containing "use PostgreSQL::Test::Utils", the RPM
Package Manager said "nothing provides perl(PostgreSQL::Test::Utils)".
Discussed on pgsql-packagers.  Back-patch to v12, v13, and v14 only;
newer versions don't have the alias packages.

Reviewed by Andrew Dunstan, Tom Lane, and John Harvey.  Reported by John
Harvey.
This commit is contained in:
Noah Misch
2024-08-07 11:43:34 -07:00
parent 7f875fb5bd
commit ecf7c48462
2 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/test/perl/PostgreSQL/Test/Cluster.pm
View File

@ -10,4 +10,10 @@ use warnings;
BEGIN { *PostgreSQL::Test::Cluster:: = \*PostgresNode::; } BEGIN { *PostgreSQL::Test::Cluster:: = \*PostgresNode::; }
use PostgresNode (); use PostgresNode ();
# There's no runtime requirement for the following package declaration, but it
# convinces the RPM Package Manager that this file provides the Perl package
# in question. Perl v5.10.1 segfaults if a declaration of the to-be-aliased
# package precedes the aliasing itself, hence the abnormal placement.
package PostgreSQL::Test::Cluster;
1; 1;

6
src/test/perl/PostgreSQL/Test/Utils.pm
View File

@ -8,4 +8,10 @@ use warnings;
BEGIN { *PostgreSQL::Test::Utils:: = \*TestLib::; } BEGIN { *PostgreSQL::Test::Utils:: = \*TestLib::; }
use TestLib (); use TestLib ();
# There's no runtime requirement for the following package declaration, but it
# convinces the RPM Package Manager that this file provides the Perl package
# in question. Perl v5.10.1 segfaults if a declaration of the to-be-aliased
# package precedes the aliasing itself, hence the abnormal placement.
package PostgreSQL::Test::Utils;
1; 1;