Rename cop_hints to cop_hints_hash

[perl5.git] / perl.c

diff --git a/perl.c b/perl.c
index fc95e83..7d71030 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1056,8 +1056,8 @@ perl_destruct(pTHXx)
     if (!specialCopIO(PL_compiling.cop_io))
        SvREFCNT_dec(PL_compiling.cop_io);
     PL_compiling.cop_io = NULL;
     if (!specialCopIO(PL_compiling.cop_io))
        SvREFCNT_dec(PL_compiling.cop_io);
     PL_compiling.cop_io = NULL;

-    Perl_refcounted_he_free(aTHX_ PL_compiling.cop_hints);
-    PL_compiling.cop_hints = NULL;
+    Perl_refcounted_he_free(aTHX_ PL_compiling.cop_hints_hash);
+    PL_compiling.cop_hints_hash = NULL;

     CopFILE_free(&PL_compiling);
     CopSTASH_free(&PL_compiling);
 
     CopFILE_free(&PL_compiling);
     CopSTASH_free(&PL_compiling);