BUG #5335: GUC value lost on exception

The following bug has been logged online:

Bug reference: 5335
Logged by: Tim Bunce
Email address: Tim(dot)Bunce(at)pobox(dot)com
PostgreSQL version: 8.4.2
Operating system: OS X
Description: GUC value lost on exception
Details:

andrew=# SET SESSION plperl.use_strict = on;
SET
andrew=# SHOW plperl.use_strict;
plperl.use_strict
-------------------
on
(1 row)

andrew=# DO $$ elog(ERROR,"error") $$ language plperl;
ERROR: error at line 1.
CONTEXT: PL/Perl anonymous code block
andrew=# SHOW plperl.use_strict;
plperl.use_strict
-------------------
off
(1 row)

See http://archives.postgresql.org/message-id/4B4FB92D.5040308@dunslane.net
and the thread following it.

See also
http://archives.postgresql.org/message-id/4B577E9F.8000505@dunslane.net