]> granicus.if.org Git - postgresql/commit
Add semicolons to eval'd strings to hide a minor Perl behavioral change.
authorTom Lane <tgl@sss.pgh.pa.us>
Mon, 3 Jun 2013 18:19:36 +0000 (14:19 -0400)
committerTom Lane <tgl@sss.pgh.pa.us>
Mon, 3 Jun 2013 18:19:36 +0000 (14:19 -0400)
commit89bd9fe5fde46af8e2d93d2cb78a8142ac7caf4d
treeca96ecc940d240e4e8f692996f078300cab3d7af
parent1e5588cfd966ef5f4a1e31625b7079cff6d91a5a
Add semicolons to eval'd strings to hide a minor Perl behavioral change.

"eval q{foo}" used to complain that the error was on line 2 of the eval'd
string, because eval internally tacked on "\n;" so that the end of the
erroneous command was indeed on line 2.  But as of Perl 5.18 it more
sanely says that the error is on line 1.  To avoid Perl-version-dependent
regression test results, use "eval q{foo;}" instead in the two places
where this matters.  Per buildfarm.

Since people might try to use newer Perl versions with older PG releases,
back-patch as far as 9.0 where these test cases were added.
src/pl/plperl/expected/plperl.out
src/pl/plperl/expected/plperl_init.out
src/pl/plperl/sql/plperl.sql
src/pl/plperl/sql/plperl_init.sql