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

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

diff --git a/doc/src/sgml/release-9.0.sgml b/doc/src/sgml/release-9.0.sgml
index d3fabaf83ecc90cb55124db7a41663cd100220f0..3f3c966894581f187012c2601f1579b56413499e 100644 (file)
--- a/doc/src/sgml/release-9.0.sgml
+++ b/doc/src/sgml/release-9.0.sgml
@@ -1,4 +1,4 @@
-
+
 
  
   Release 9.0
@@ -1759,18 +1759,6 @@
       
      
 
-     
-      
-       PL/Perl subroutines are now given perl-visible names (Tim Bunce)
-      
-
-      
-       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.
-      
-     
-
     
 
    

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index 7c6545488377040b32870c693a4e609faae5cfc1..b22801b851046170f541b308ea5e9f050f5941ea 100644 (file)
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -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;