1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index 7ae36f3055..328bccd40c 100644
--- a/perl.c
+++ b/perl.c
@@ -1191,7 +1191,7 @@ perl_destruct(pTHXx)
         SvREFCNT_dec(PL_XPosix_ptrs[i]);
         PL_XPosix_ptrs[i] = NULL;
 
-        if (i != _CC_CASED) {   /* A copy of Alpha */
+        if (i != CC_CASED_) {   /* A copy of Alpha */
             SvREFCNT_dec(PL_Posix_ptrs[i]);
             PL_Posix_ptrs[i] = NULL;
         }