From: Tom Lane <tgl@sss.pgh.pa.us>
To: gdo@leader.it
cc: pgsql-bugs@lists.postgresql.org
Subject: Re: BUG #17946: LC_MONETARY & DO LANGUAGE plperl - BUG
In-reply-to: <17946-3e84cb577e9551c3@postgresql.org>
References: <17946-3e84cb577e9551c3@postgresql.org>
Comments: In-reply-to PG Bug reporting form <noreply@postgresql.org>
	message dated "Thu, 25 May 2023 15:21:26 -0000"
MIME-Version: 1.0
Content-Type: text/plain; charset="UTF-8"
Content-ID: <1564675.1685043220.1@sss.pgh.pa.us>
Content-Transfer-Encoding: quoted-printable
Date: Thu, 25 May 2023 15:33:40 -0400
Message-ID: <1564676.1685043220@sss.pgh.pa.us>
Archived-At: 
 <https://www.postgresql.org/message-id/1564676.1685043220%40sss.pgh.pa.us>
Precedence: bulk

PG Bug reporting form <noreply@postgresql.org> writes:
> After upgrading an application using Postgresql from version 10 to 12,
> fields of type "money" are no longer generated with the =E2=82=AC symbol=
 but with
> $.

Hmm, seems to work for me:

$ psql
psql (12.15)
Type "help" for help.

postgres=3D#  SET lc_monetary TO 'en_GB.UTF-8';
SET
postgres=3D#   SELECT 12.34::money AS price;
 price  =

--------
 =C2=A312.34
(1 row)

postgres=3D#   DO LANGUAGE 'plperl' $$ my $rv =3D spi_exec_query(q{SELECT =
12.34::money AS
price;}, 1);elog(NOTICE, $rv->{rows}[0]->{price});$$;
NOTICE:  =C2=A312.34
DO
postgres=3D# SET lc_monetary TO 'it_IT.UTF-8';
SET
postgres=3D#   SELECT 12.34::money AS price;
  price  =

---------
 =E2=82=AC 12,34
(1 row)

postgres=3D#   DO LANGUAGE 'plperl' $$ my $rv =3D spi_exec_query(q{SELECT =
12.34::money AS
price;}, 1);elog(NOTICE, $rv->{rows}[0]->{price});$$;
NOTICE:  =E2=82=AC 12,34
DO

IIRC, we've seen trouble in the past with some versions of libperl
clobbering the host application's locale settings.  Maybe you
have a plperl.on_init or plperl.on_plperl_init action that is
causing that to happen?  In any case, I'd call it a Perl bug not
a Postgres bug.

			regards, tom lane