database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-04-24 10:47:04 +03:00
Code

Use the right interpreter for encoding test.

Browse Source
This commit is contained in:
Andrew Dunstan 2011-11-26 18:39:12 -05:00
parent ba00ab0b11
commit efb0423cc7
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/pl/plperl/expected/plperl.out
View File

@ -656,7 +656,7 @@ CONTEXT: PL/Perl anonymous code block
-- --
CREATE OR REPLACE FUNCTION perl_zerob() RETURNS TEXT AS $$ CREATE OR REPLACE FUNCTION perl_zerob() RETURNS TEXT AS $$
return "abcd\0efg"; return "abcd\0efg";
$$ LANGUAGE plperlu; $$ LANGUAGE plperl;
SELECT perl_zerob(); SELECT perl_zerob();
ERROR: invalid byte sequence for encoding "UTF8": 0x00 ERROR: invalid byte sequence for encoding "UTF8": 0x00
CONTEXT: PL/Perl function "perl_zerob" CONTEXT: PL/Perl function "perl_zerob"

2
src/pl/plperl/sql/plperl.sql
View File

@ -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 $$ CREATE OR REPLACE FUNCTION perl_zerob() RETURNS TEXT AS $$
return "abcd\0efg"; return "abcd\0efg";
$$ LANGUAGE plperlu; $$ LANGUAGE plperl;
SELECT perl_zerob(); SELECT perl_zerob();
-- make sure functions marked as VOID without an explicit return work -- make sure functions marked as VOID without an explicit return work