postgres.git / summary / log / commit / refs

commit    9f42e5b3ecd91e0f3da278bec5d8255c1e913e62
Author:   Andrew Dunstan <andrew@dunslane.net>
Date:     Sat Nov 26 23:40:54 2011 +0000
First released in: 9.2.0, 9.1.2

    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 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


[parent: 403372459efe]