Commit3659c62

committed

Remove perl symbol table additions for plperl functions, and mention of it

in the release notes, as it is not apparently providing anything useful.

1 parent0c88e55 commit3659c62Copy full SHA for 3659c62

File tree

-18

lines changed

-18

lines changed

Lines changed: 1 addition & 13 deletions

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-<!-- $PostgreSQL: pgsql/doc/src/sgml/release-9.0.sgml,v 2.31 2010/06/14 02:18:43 rhaas Exp $ -->`
	`1`	`+<!-- $PostgreSQL: pgsql/doc/src/sgml/release-9.0.sgml,v 2.32 2010/06/16 14:50:34 adunstan Exp $ -->`
`2`	`2`
`3`	`3`	`<sect1 id="release-9-0">`
`4`	`4`	`<title>Release 9.0</title>`
`@@ -1759,18 +1759,6 @@`
`1759`	`1759`	`</para>`
`1760`	`1760`	`</listitem>`
`1761`	`1761`
`1762`		`- <listitem>`
`1763`		`- <para>`
`1764`		`- PL/Perl subroutines are now given perl-visible names (Tim Bunce)`
`1765`		`- </para>`
`1766`		`-`
`1767`		`- <para>`
`1768`		`- PL/Perl subroutines are anonymous subrefs; this change adds entries`
`1769`		`- to the Perl symbol table for them, making profiling and code coverage`
`1770`		`- tools much more usable.`
`1771`		`- </para>`
`1772`		`- </listitem>`
`1773`		`-`
`1774`	`1762`	`</itemizedlist>`
`1775`	`1763`
`1776`	`1764`	`</sect4>`

Lines changed: 1 addition & 5 deletions

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,7 @@`
`1`	`1`	`/**********************************************************************`
`2`	`2`	`* plperl.c - perl as a procedural language for PostgreSQL`
`3`	`3`	`*`
`4`		`- * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.176 2010/05/17 19:43:04 adunstan Exp $`
	`4`	`+ * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.177 2010/06/16 14:50:34 adunstan Exp $`
`5`	`5`	`*`
`6`	`6`	`**********************************************************************/`
`7`	`7`
`@@ -1319,10 +1319,6 @@ plperl_create_sub(plperl_proc_desc prodesc, char s, Oid fn_oid)`
`1319`	`1319`	`(errmsg("didn't get a CODE ref from compiling %s",`
`1320`	`1320`	`prodesc->proname)));`
`1321`	`1321`
`1322`		`-/* give the subroutine a proper name in the main:: symbol table */`
`1323`		`-CvGV(SvRV(subref))= (GV*)newSV(0);`
`1324`		`-gv_init(CvGV(SvRV(subref)),PL_defstash,subname,strlen(subname), TRUE);`
`1325`		`-`
`1326`	`1322`	`prodesc->reference=subref;`
`1327`	`1323`
`1328`	`1324`	`return;`

Comments

(0)