rdelaage/postgresql
1
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2024-09-30 19:41:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Make the plperl regression tests pass in 'use_strict' mode, by adding

Browse Source 
'my' where appropriate.  Michael Fuhr
This commit is contained in:
Tom Lane 2005-08-24 19:24:54 +00:00
parent 9a4fd8f481
commit 06f4a53941
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/pl/plperl/expected/plperl.out
View File

@ -336,7 +336,7 @@ SELECT perl_get_field((11,12), 'z');
-- Test return_next -- Test return_next
-- --
CREATE OR REPLACE FUNCTION perl_srf_rn() RETURNS SETOF RECORD AS $$ CREATE OR REPLACE FUNCTION perl_srf_rn() RETURNS SETOF RECORD AS $$
$i = 0; my $i = 0;
for ("World", "PostgreSQL", "PL/Perl") { for ("World", "PostgreSQL", "PL/Perl") {
return_next({f1=>++$i, f2=>'Hello', f3=>$_}); return_next({f1=>++$i, f2=>'Hello', f3=>$_});
} }
@ -354,8 +354,8 @@ SELECT * from perl_srf_rn() AS (f1 INTEGER, f2 TEXT, f3 TEXT);
-- Test spi_query/spi_fetchrow -- Test spi_query/spi_fetchrow
-- --
CREATE OR REPLACE FUNCTION perl_spi_func() RETURNS SETOF INTEGER AS $$ CREATE OR REPLACE FUNCTION perl_spi_func() RETURNS SETOF INTEGER AS $$
$x = spi_query("select 1 as a union select 2 as a"); my $x = spi_query("select 1 as a union select 2 as a");
while (defined ($y = spi_fetchrow($x))) { while (defined (my $y = spi_fetchrow($x))) {
return_next($y->{a}); return_next($y->{a});
} }
return; return;

6
src/pl/plperl/sql/plperl.sql
View File

@ -240,7 +240,7 @@ SELECT perl_get_field((11,12), 'z');
-- --
CREATE OR REPLACE FUNCTION perl_srf_rn() RETURNS SETOF RECORD AS $$ CREATE OR REPLACE FUNCTION perl_srf_rn() RETURNS SETOF RECORD AS $$
$i = 0; my $i = 0;
for ("World", "PostgreSQL", "PL/Perl") { for ("World", "PostgreSQL", "PL/Perl") {
return_next({f1=>++$i, f2=>'Hello', f3=>$_}); return_next({f1=>++$i, f2=>'Hello', f3=>$_});
} }
@ -253,8 +253,8 @@ SELECT * from perl_srf_rn() AS (f1 INTEGER, f2 TEXT, f3 TEXT);
-- --
CREATE OR REPLACE FUNCTION perl_spi_func() RETURNS SETOF INTEGER AS $$ CREATE OR REPLACE FUNCTION perl_spi_func() RETURNS SETOF INTEGER AS $$
$x = spi_query("select 1 as a union select 2 as a"); my $x = spi_query("select 1 as a union select 2 as a");
while (defined ($y = spi_fetchrow($x))) { while (defined (my $y = spi_fetchrow($x))) {
return_next($y->{a}); return_next($y->{a});
} }
return; return;