From efb0423cc7c6e46c22816e2acc48e8f827e341ed Mon Sep 17 00:00:00 2001
From: Andrew Dunstan <andrew@dunslane.net>
Date: Sat, 26 Nov 2011 18:39:12 -0500
Subject: Use the right interpreter for encoding test.

---
 src/pl/plperl/sql/plperl.sql | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/pl/plperl/sql/plperl.sql')

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
-- 
cgit v1.2.3

