Fix bug with multiple evaluation of tsearch2 compatibility trigger, trigger

data should be restored.
Backpatch only for 8.3 because previous versions haven't such layer.

diff --git a/contrib/tsearch2/tsearch2.c b/contrib/tsearch2/tsearch2.c
index ec68d3fdae7ec2c3aeef2c15e77e8d40b1e8a732..2544bc24c10a4ff9ecc0c17c084a18c6237669db 100644 (file)
--- a/contrib/tsearch2/tsearch2.c
+++ b/contrib/tsearch2/tsearch2.c
@@ -7,7 +7,7 @@
  *
  *
  * IDENTIFICATION
- *       $PostgreSQL: pgsql/contrib/tsearch2/tsearch2.c,v 1.8 2009/01/01 17:23:32 momjian Exp $
+ *       $PostgreSQL: pgsql/contrib/tsearch2/tsearch2.c,v 1.9 2009/01/28 18:31:32 teodor Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -367,8 +367,10 @@ tsa_tsearch2(PG_FUNCTION_ARGS)
 {
        TriggerData *trigdata;
        Trigger    *trigger;
-       char      **tgargs;
+       char      **tgargs, 
+                         **tgargs_old;
        int                     i;
+       Datum           res;
 
        /* Check call context */
        if (!CALLED_AS_TRIGGER(fcinfo))         /* internal error */
@@ -388,10 +390,20 @@ tsa_tsearch2(PG_FUNCTION_ARGS)
 
        tgargs[1] = pstrdup(GetConfigOptionByName("default_text_search_config",
                                                                                          NULL));
+       tgargs_old = trigger->tgargs;
        trigger->tgargs = tgargs;
        trigger->tgnargs++;
 
-       return tsvector_update_trigger_byid(fcinfo);
+       res = tsvector_update_trigger_byid(fcinfo);
+
+       /* restore old trigger data */
+       trigger->tgargs = tgargs_old;
+       trigger->tgnargs--;
+
+       pfree(tgargs[1]);
+       pfree(tgargs);
+
+       return res;
 }