BUG #5335: GUC value lost on exception

The following bug has been logged online:

Bug reference:      5335
Logged by:          Tim Bunce
Email address:      Tim.Bunce@pobox.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