diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2011-11-26 18:40:54 -0500 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2011-11-26 18:40:54 -0500 |
| commit | 9f42e5b3ecd91e0f3da278bec5d8255c1e913e62 (patch) | |
| tree | 26315ae6da603546024ce847a96a88b0fa8b5ab7 | |
| parent | 403372459efe4c938d6777e9c10cadc2811c835a (diff) | |
| download | postgresql-9f42e5b3ecd91e0f3da278bec5d8255c1e913e62.tar.gz postgresql-9f42e5b3ecd91e0f3da278bec5d8255c1e913e62.zip | |
Use the right interpreter for encoding test.
| -rw-r--r-- | src/pl/plperl/expected/plperl.out | 2 | ||||
| -rw-r--r-- | src/pl/plperl/sql/plperl.sql | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/pl/plperl/expected/plperl.out b/src/pl/plperl/expected/plperl.out index 6e2d5a6f7ed..df54937f494 100644 --- a/src/pl/plperl/expected/plperl.out +++ b/src/pl/plperl/expected/plperl.out @@ -656,7 +656,7 @@ CONTEXT: PL/Perl anonymous code block -- CREATE OR REPLACE FUNCTION perl_zerob() RETURNS TEXT AS $$ return "abcd\0efg"; -$$ LANGUAGE plperlu; +$$ LANGUAGE plperl; SELECT perl_zerob(); ERROR: invalid byte sequence for encoding "UTF8": 0x00 CONTEXT: PL/Perl function "perl_zerob" 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 |