mirror/postgresql
2
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2024-12-21 08:29:39 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
in the release notes, as it is not apparently providing anything useful.
This commit is contained in:
Andrew Dunstan 2010-06-16 14:50:34 +00:00
parent 0c88e559d1
commit 3659c62350
2 changed files with 2 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
doc/src/sgml/release-9.0.sgml
View File

@ -1,4 +1,4 @@
<!-- $PostgreSQL: pgsql/doc/src/sgml/release-9.0.sgml,v 2.31 2010/06/14 02:18:43 rhaas Exp $ -->
<!-- $PostgreSQL: pgsql/doc/src/sgml/release-9.0.sgml,v 2.32 2010/06/16 14:50:34 adunstan Exp $ -->
<sect1 id="release-9-0">
<title>Release 9.0</title>
@ -1759,18 +1759,6 @@
</para>
</listitem>
<listitem>
<para>
PL/Perl subroutines are now given perl-visible names (Tim Bunce)
</para>
<para>
PL/Perl subroutines are anonymous subrefs; this change adds entries
to the Perl symbol table for them, making profiling and code coverage
tools much more usable.
</para>
</listitem>
</itemizedlist>
</sect4>

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

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