diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2011-11-26 18:39:12 -0500 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2011-11-26 18:39:12 -0500 |
| commit | efb0423cc7c6e46c22816e2acc48e8f827e341ed (patch) | |
| tree | e389609136fb80b7fd62f2f691545eab40dd3e41 /src/pl/plperl/sql/plperl.sql | |
| parent | ba00ab0b111a0cbbac612e8ea8b0d5f96534102e (diff) | |
| download | postgresql-efb0423cc7c6e46c22816e2acc48e8f827e341ed.tar.gz postgresql-efb0423cc7c6e46c22816e2acc48e8f827e341ed.zip | |
Use the right interpreter for encoding test.
Diffstat (limited to 'src/pl/plperl/sql/plperl.sql')
| -rw-r--r-- | src/pl/plperl/sql/plperl.sql | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pl/plperl/sql/plperl.sql b/src/pl/plperl/sql/plperl.sql index ecb59cdb773..84af1fd73fb 100644 --- a/src/pl/plperl/sql/plperl.sql +++ b/src/pl/plperl/sql/plperl.sql @@ -429,7 +429,7 @@ DO $do$ use warnings FATAL => qw(void) ; my @y; my $x = sort @y; 1; $do$ LANGUAG -- CREATE OR REPLACE FUNCTION perl_zerob() RETURNS TEXT AS $$ return "abcd\0efg"; -$$ LANGUAGE plperlu; +$$ LANGUAGE plperl; SELECT perl_zerob(); -- make sure functions marked as VOID without an explicit return work |