25 lines
1.7 KiB
Diff
25 lines
1.7 KiB
Diff
diff -upr postgresql-14.3.orig/src/pl/plperl/expected/plperl.out postgresql-14.3/src/pl/plperl/expected/plperl.out
|
|
--- postgresql-14.3.orig/src/pl/plperl/expected/plperl.out 2022-05-10 00:14:45.000000000 +0300
|
|
+++ postgresql-14.3/src/pl/plperl/expected/plperl.out 2022-05-29 13:51:38.332998929 +0300
|
|
@@ -725,7 +725,7 @@ ERROR: Can't use string ("foo") as a SC
|
|
CONTEXT: PL/Perl anonymous code block
|
|
-- check that we can "use warnings" (in this case to turn a warn into an error)
|
|
-- yields "ERROR: Useless use of sort in scalar context."
|
|
-DO $do$ use warnings FATAL => qw(void) ; my @y; my $x = sort @y; 1; $do$ LANGUAGE plperl;
|
|
+DO $do$ use warnings FATAL => qw(scalar void) ; my @y; my $x = sort @y; 1; $do$ LANGUAGE plperl;
|
|
ERROR: Useless use of sort in scalar context at line 1.
|
|
CONTEXT: PL/Perl anonymous code block
|
|
-- make sure functions marked as VOID without an explicit return work
|
|
diff -upr postgresql-14.3.orig/src/pl/plperl/sql/plperl.sql postgresql-14.3/src/pl/plperl/sql/plperl.sql
|
|
--- postgresql-14.3.orig/src/pl/plperl/sql/plperl.sql 2022-05-10 00:14:45.000000000 +0300
|
|
+++ postgresql-14.3/src/pl/plperl/sql/plperl.sql 2022-05-29 13:49:36.280946055 +0300
|
|
@@ -470,7 +470,7 @@ DO $do$ use strict; my $name = "foo"; my
|
|
|
|
-- check that we can "use warnings" (in this case to turn a warn into an error)
|
|
-- yields "ERROR: Useless use of sort in scalar context."
|
|
-DO $do$ use warnings FATAL => qw(void) ; my @y; my $x = sort @y; 1; $do$ LANGUAGE plperl;
|
|
+DO $do$ use warnings FATAL => qw(scalar void) ; my @y; my $x = sort @y; 1; $do$ LANGUAGE plperl;
|
|
|
|
-- make sure functions marked as VOID without an explicit return work
|
|
CREATE OR REPLACE FUNCTION myfuncs() RETURNS void AS $$
|