From efb0423cc7c6e46c22816e2acc48e8f827e341ed Mon Sep 17 00:00:00 2001 From: Andrew Dunstan Date: Sat, 26 Nov 2011 18:39:12 -0500 Subject: [PATCH] Use the right interpreter for encoding test. --- src/pl/plperl/expected/plperl.out | 2 +- 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 6e2d5a6f7e..df54937f49 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 ecb59cdb77..84af1fd73f 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 -- 2.40.0