Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commitefb0423

Browse files
committed
Use the right interpreter for encoding test.
1 parentba00ab0 commitefb0423

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

‎src/pl/plperl/expected/plperl.out

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -656,7 +656,7 @@ CONTEXT: PL/Perl anonymous code block
656656
--
657657
CREATE OR REPLACE FUNCTION perl_zerob() RETURNS TEXT AS $$
658658
return "abcd\0efg";
659-
$$ LANGUAGEplperlu;
659+
$$ LANGUAGEplperl;
660660
SELECT perl_zerob();
661661
ERROR: invalid byte sequence for encoding "UTF8": 0x00
662662
CONTEXT: PL/Perl function "perl_zerob"

‎src/pl/plperl/sql/plperl.sql

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -429,7 +429,7 @@ DO $do$ use warnings FATAL => qw(void) ; my @y; my $x = sort @y; 1; $do$ LANGUAG
429429
--
430430
CREATE OR REPLACEFUNCTIONperl_zerob() RETURNSTEXTAS $$
431431
return"abcd\0efg";
432-
$$ LANGUAGEplperlu;
432+
$$ LANGUAGEplperl;
433433
SELECT perl_zerob();
434434

435435
-- make sure functions marked as VOID without an explicit return work

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp