postgresql/trunk/postgresql-perl-5.36.patch

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