[svn:ponie] rev 296 - in trunk: . perl

Author: nicholas
Date: Fri Jun 24 13:14:51 2005
New Revision: 296

Modified:
   trunk/   (props changed)
   trunk/perl/perl.c
Log:
Attempt to sync changes to perl.c back to the main repository.

Modified: trunk/perl/perl.c
==============================================================================
--- trunk/perl/perl.c	(original)
+++ trunk/perl/perl.c	Fri Jun 24 13:14:51 2005
@@ -503,35 +503,6 @@ Shuts down a Perl interpreter.  See L<pe
 =cut
 */
 
-void
-S_perl_clear_symtable(pTHX_ HV *stash) {
-  HE* entry;
-
-  if (SvRMAGICAL(stash)) {
-      assert (!mg_find((SV*)stash, PERL_MAGIC_tied));
-  }
-
-  hv_iterinit(stash);
-  while ((entry = hv_iternext(stash))) {
-      SV *val = HeVAL(entry);
-      HeVAL(entry) = &PL_sv_placeholder;
-
-      if (isGV(val)) {
-	  STRLEN len = GvNAMELEN(val);
-	  const char *name = GvNAME(val);
-
-	  /* name =~ /::$/;  */
-	  if (name && --len && name[len] == ':' && name[len-1] == ':') {
-	      HV *substash = GvHV(val);
-
-	      if (substash)
-		  S_perl_clear_symtable(aTHX_ substash);
-	  }
-      }
-      SvREFCNT_dec(val);
-  }
-}
-
 int
 perl_destruct(pTHXx)
 {
@@ -960,7 +931,6 @@ perl_destruct(pTHXx)
 
     hv = PL_defstash;
     PL_defstash = 0;
-    S_perl_clear_symtable(aTHX_ hv);
     SvREFCNT_dec(hv);
     SvREFCNT_dec(PL_curstname);
     PL_curstname = Nullsv;