|
33 | 33 | * ENHANCEMENTS, OR MODIFICATIONS. |
34 | 34 | * |
35 | 35 | * IDENTIFICATION |
36 | | - * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.39 2003/08/0400:43:33 momjian Exp $ |
| 36 | + * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.40 2003/09/0415:16:39 tgl Exp $ |
37 | 37 | * |
38 | 38 | **********************************************************************/ |
39 | 39 |
|
@@ -757,6 +757,10 @@ plperl_build_tuple_argument(HeapTuple tuple, TupleDesc tupdesc) |
757 | 757 |
|
758 | 758 | for (i=0;i<tupdesc->natts;i++) |
759 | 759 | { |
| 760 | +/* ignore dropped attributes */ |
| 761 | +if (tupdesc->attrs[i]->attisdropped) |
| 762 | +continue; |
| 763 | + |
760 | 764 | /************************************************************ |
761 | 765 | * Get the attribute name |
762 | 766 | ************************************************************/ |
|