From d6ee9a5567cea503c211fa41a0f741c71aa60ad5 Mon Sep 17 00:00:00 2001 From: Anton Voloshin Date: Fri, 26 Apr 2024 14:23:28 +0000 Subject: [PATCH] use numeric locale in kerberos test to work around perl bug After b124104e7 we became susceptible to Perl bug (at least on Perl 5.38.2), where on locales with non-dot fractional part separator, floating-point constants in perl source are broken (1.15 would be '1'). Work around that by using numeric locale in this file. --- src/test/perl/PostgreSQL/Test/Kerberos.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/test/perl/PostgreSQL/Test/Kerberos.pm b/src/test/perl/PostgreSQL/Test/Kerberos.pm index f7810da9c1d..2c29c67329e 100644 --- a/src/test/perl/PostgreSQL/Test/Kerberos.pm +++ b/src/test/perl/PostgreSQL/Test/Kerberos.pm @@ -9,6 +9,8 @@ package PostgreSQL::Test::Kerberos; use strict; use warnings FATAL => 'all'; use PostgreSQL::Test::Utils; +# Work around the Perl 5.38.2 bug: we need floating-point constants. +use locale ':numeric'; our ($krb5_bin_dir, $krb5_sbin_dir, $krb5_config, $kinit, $klist, $kdb5_util, $kadmin_local, $krb5kdc, -- 2.43.0