diff options
Diffstat (limited to 'src/pl/plperl/plperl.c')
| -rw-r--r-- | src/pl/plperl/plperl.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index d33188ae285..7533e578436 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -33,7 +33,7 @@ * ENHANCEMENTS, OR MODIFICATIONS. * * IDENTIFICATION - * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.30 2002/05/05 00:03:29 tgl Exp $ + * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.31 2002/06/15 19:54:24 momjian Exp $ * **********************************************************************/ @@ -552,8 +552,8 @@ compile_plperl_function(Oid fn_oid, bool is_trigger) * This is needed because CREATE OR REPLACE FUNCTION can modify the * function's pg_proc entry without changing its OID. ************************************************************/ - uptodate = (prodesc->fn_xmin == procTup->t_data->t_xmin && - prodesc->fn_cmin == procTup->t_data->t_cmin); + uptodate = (prodesc->fn_xmin == HeapTupleHeaderGetXmin(procTup->t_data) && + prodesc->fn_cmin == HeapTupleHeaderGetCmin(procTup->t_data)); if (!uptodate) { @@ -586,8 +586,8 @@ compile_plperl_function(Oid fn_oid, bool is_trigger) elog(ERROR, "plperl: out of memory"); MemSet(prodesc, 0, sizeof(plperl_proc_desc)); prodesc->proname = strdup(internal_proname); - prodesc->fn_xmin = procTup->t_data->t_xmin; - prodesc->fn_cmin = procTup->t_data->t_cmin; + prodesc->fn_xmin = HeapTupleHeaderGetXmin(procTup->t_data); + prodesc->fn_cmin = HeapTupleHeaderGetCmin(procTup->t_data); /************************************************************ * Lookup the pg_language tuple by Oid |