Commit06f4a53

committed

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

'my' where appropriate. Michael Fuhr

1 parent9a4fd8f commit06f4a53Copy full SHA for 06f4a53

File tree

-6

lines changed

-6

lines changed

Lines changed: 3 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -336,7 +336,7 @@ SELECT perl_get_field((11,12), 'z');`
`336`	`336`	`-- Test return_next`
`337`	`337`	`--`
`338`	`338`	`CREATE OR REPLACE FUNCTION perl_srf_rn() RETURNS SETOF RECORD AS $$`
`339`		`-$i = 0;`
	`339`	`+my$i = 0;`
`340`	`340`	`for ("World", "PostgreSQL", "PL/Perl") {`
`341`	`341`	`return_next({f1=>++$i, f2=>'Hello', f3=>$_});`
`342`	`342`	`}`
`@@ -354,8 +354,8 @@ SELECT * from perl_srf_rn() AS (f1 INTEGER, f2 TEXT, f3 TEXT);`
`354`	`354`	`-- Test spi_query/spi_fetchrow`
`355`	`355`	`--`
`356`	`356`	`CREATE OR REPLACE FUNCTION perl_spi_func() RETURNS SETOF INTEGER AS $$`
`357`		`-$x = spi_query("select 1 as a union select 2 as a");`
`358`		`-while (defined ($y = spi_fetchrow($x))) {`
	`357`	`+my$x = spi_query("select 1 as a union select 2 as a");`
	`358`	`+while (defined (my$y = spi_fetchrow($x))) {`
`359`	`359`	`return_next($y->{a});`
`360`	`360`	`}`
`361`	`361`	`return;`

Lines changed: 3 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -240,7 +240,7 @@ SELECT perl_get_field((11,12), 'z');`
`240`	`240`	`--`
`241`	`241`
`242`	`242`	`CREATE OR REPLACEFUNCTIONperl_srf_rn() RETURNS SETOF RECORDAS $$`
`243`		`-$i=0;`
	`243`	`+my$i=0;`
`244`	`244`	`for ("World","PostgreSQL","PL/Perl") {`
`245`	`245`	`return_next({f1=>++$i, f2=>'Hello', f3=>$_});`
`246`	`246`	`}`
`@@ -253,8 +253,8 @@ SELECT * from perl_srf_rn() AS (f1 INTEGER, f2 TEXT, f3 TEXT);`
`253`	`253`	`--`
`254`	`254`
`255`	`255`	`CREATE OR REPLACEFUNCTIONperl_spi_func() RETURNS SETOFINTEGERAS $$`
`256`		`-$x= spi_query("select 1 as a union select 2 as a");`
`257`		`-while (defined ($y= spi_fetchrow($x))) {`
	`256`	`+my$x= spi_query("select 1 as a union select 2 as a");`
	`257`	`+while (defined (my$y= spi_fetchrow($x))) {`
`258`	`258`	`return_next($y->{a});`
`259`	`259`	`}`
`260`	`260`	`return;`

Comments

(0)