3 files changed, 0 insertions, 4 deletions
diff --git a/cop.h b/cop.h
index f5afb61014..9f3762ec46 100644
--- a/cop.h
+++ b/cop.h
@@ -459,7 +459,6 @@ struct cop {
    /* cop_stash is not refcounted */
 #define CopSTASHPV_set(c,pv)	CopSTASH_set((c), gv_stashpv(pv,GV_ADD))
 #define CopSTASH_eq(c,hv)	(CopSTASH(c) == (hv))
-#define CopSTASH_free(c)	
 
 #define CopHINTHASH_get(c)	((COPHH*)((c)->cop_hints_hash))
 #define CopHINTHASH_set(c,h)	((c)->cop_hints_hash = (h))
diff --git a/op.c b/op.c
index 2d1bebccc3..bc6df04b02 100644
--- a/op.c
+++ b/op.c
@@ -769,7 +769,6 @@ S_cop_free(pTHX_ COP* cop)
     PERL_ARGS_ASSERT_COP_FREE;
 
     CopFILE_free(cop);
-    CopSTASH_free(cop);
     if (! specialWARN(cop->cop_warnings))
 	PerlMemShared_free(cop->cop_warnings);
     cophh_free(CopHINTHASH_get(cop));
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.  */