Re: plperl & sort - Mailing list pgsql-bugs

From Alex Hunsaker
Subject Re: plperl & sort
Date
Msg-id 34d269d40811041127k45d05346jfcdd5228d964be34@mail.gmail.com
Whole thread Raw
In response to plperl & sort  (Jeff <threshar@torgo.978.org>)
Responses Re: plperl & sort
Re: plperl & sort
List pgsql-bugs
On Tue, Nov 4, 2008 at 09:02, Jeff <threshar@torgo.978.org> wrote:
> I've ran into this interesting problem.
> It seems that while you can call sort() in a trusted plperl func you cannot
> access $a & $b which effectively makes it useless.

Hrm works for me if I take out the elog from sort()

create or replace function trustedsort()
returns int
as $$

my @arr = qw(5 4 3 2 1);

my @sorted = sort { $a <=> $b } @arr;

elog(NOTICE, join(' ', @sorted));

return 1;

$$
language 'plperl';

SELECT trustedsort();
NOTICE:  1 2 3 4 5
 trustedsort
-------------
           1
(1 row)

pgsql-bugs by date:

Previous
From: Tom Lane
Date:
Subject: Re: plperl & sort
Next
From: Tom Lane
Date:
Subject: Re: plperl & sort