Fix bogus order of cleanup steps in plperl_inline_handler.

Per Alex Hunsaker

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index c622b6440847b6258b4c8c0a343ecb6b6e76eda2..9ad2d40d114778ae27918e27e5c5f9cbb20413c4 100644 (file)
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -1,7 +1,7 @@
 /**********************************************************************
  * plperl.c - perl as a procedural language for PostgreSQL
  *
- *   $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.173 2010/03/18 19:02:46 petere Exp $
+ *   $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.174 2010/04/18 19:16:06 tgl Exp $
  *
  **********************************************************************/
 
@@ -1153,19 +1153,20 @@ plperl_inline_handler(PG_FUNCTION_ARGS)
    }
    PG_CATCH();
    {
-       current_call_data = save_call_data;
-       restore_context(oldcontext);
        if (desc.reference)
            SvREFCNT_dec(desc.reference);
+       current_call_data = save_call_data;
+       restore_context(oldcontext);
        PG_RE_THROW();
    }
    PG_END_TRY();
 
-   current_call_data = save_call_data;
-   restore_context(oldcontext);
    if (desc.reference)
        SvREFCNT_dec(desc.reference);
 
+   current_call_data = save_call_data;
+   restore_context(oldcontext);
+
    error_context_stack = pl_error_context.previous;
 
    PG_RETURN_VOID();