diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2008-10-29 00:00:39 +0000 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2008-10-29 00:00:39 +0000 |
| commit | 05bba3d176e0adc1a032d5c8c6ea2a7622c7dd0d (patch) | |
| tree | 59140f72d76bd4fb7fc7e8bbad6ccf57084f042a /src/pl/plperl/plperl.c | |
| parent | e3e3d2a789e34ff6572bdf693beb1516a228c5ff (diff) | |
| download | postgresql-05bba3d176e0adc1a032d5c8c6ea2a7622c7dd0d.tar.gz postgresql-05bba3d176e0adc1a032d5c8c6ea2a7622c7dd0d.zip | |
Be more tense about not creating tuplestores with randomAccess = true unless
backwards scan could actually happen. In particular, pass a flag to
materialize-mode SRFs that tells them whether they need to require random
access. In passing, also suppress unneeded backward-scan overhead for a
Portal's holdStore tuplestore. Per my proposal about reducing I/O costs for
tuplestores.
Diffstat (limited to 'src/pl/plperl/plperl.c')
| -rw-r--r-- | src/pl/plperl/plperl.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 073e41d4006..75eaf10134c 100644 --- 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.140 2008/10/09 17:24:05 alvherre Exp $ + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.141 2008/10/29 00:00:39 tgl Exp $ * **********************************************************************/ @@ -1922,7 +1922,8 @@ plperl_return_next(SV *sv) current_call_data->ret_tdesc = CreateTupleDescCopy(tupdesc); current_call_data->tuple_store = - tuplestore_begin_heap(true, false, work_mem); + tuplestore_begin_heap(rsi->allowedModes & SFRM_Materialize_Random, + false, work_mem); if (prodesc->fn_retistuple) { current_call_data->attinmeta = |