Commit 3659c623 authored by Andrew Dunstan's avatar Andrew Dunstan

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

in the release notes, as it is not apparently providing anything useful.
parent 0c88e559
<!-- $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>
......
/**********************************************************************
* 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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment