Correct SvEND docs

[perl5.git] / perl.c

diff --git a/perl.c b/perl.c
index f0fda13..8f5f7c0 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -985,7 +985,6 @@ perl_destruct(pTHXx)
     SvREFCNT_dec(PL_utf8_alnum);
     SvREFCNT_dec(PL_utf8_alpha);
     SvREFCNT_dec(PL_utf8_space);
-    SvREFCNT_dec(PL_utf8_cntrl);
     SvREFCNT_dec(PL_utf8_graph);
     SvREFCNT_dec(PL_utf8_digit);
     SvREFCNT_dec(PL_utf8_upper);
@@ -1004,7 +1003,6 @@ perl_destruct(pTHXx)
     PL_utf8_alnum      = NULL;
     PL_utf8_alpha      = NULL;
     PL_utf8_space      = NULL;
-    PL_utf8_cntrl      = NULL;
     PL_utf8_graph      = NULL;
     PL_utf8_digit      = NULL;
     PL_utf8_upper      = NULL;
@@ -1419,7 +1417,6 @@ S_set_caret_X(pTHX) {
 #  elif defined(USE_NSGETEXECUTABLEPATH)
        char buf[1];
        uint32_t size = sizeof(buf);
-       int result;
 
        _NSGetExecutablePath(buf, &size);
        if (size < MAXPATHLEN * MAXPATHLEN) {