summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-06-04 16:44:54 -0700
committerFather Chrysostomos <sprout@cpan.org>2012-06-04 18:14:53 -0700
commit69927412246c66d2f82f9f7a155734300e71398d (patch)
tree54d419e9b4ec79c7967bb97e56f74768ade104c2 /perl.c
parent2b2e870525cc613cf38ea39455b32d4a7e39a430 (diff)
downloadperl-69927412246c66d2f82f9f7a155734300e71398d.tar.gz
Obliterate CopSTASH_free
It is unused outside the core, defined as a no-op, and undocumented.
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/perl.c b/perl.c
index fea53c0596..79d15e210c 100644
--- a/perl.c
+++ b/perl.c
@@ -829,7 +829,6 @@ perl_destruct(pTHXx)
#endif
CopFILE_free(&PL_compiling);
- CopSTASH_free(&PL_compiling);
/* The exit() function will do everything that needs doing. */
return STATUS_EXIT;
@@ -1026,7 +1025,6 @@ perl_destruct(pTHXx)
cophh_free(CopHINTHASH_get(&PL_compiling));
CopHINTHASH_set(&PL_compiling, cophh_new_empty());
CopFILE_free(&PL_compiling);
- CopSTASH_free(&PL_compiling);
/* Prepare to destruct main symbol table. */