X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/6e80eb23173ade6bdf9d6da43c067fa77e9162a5..f905da72477ede522be53c2e945a47d46ea80a82:/regcomp.c

diff --git a/regcomp.c b/regcomp.c
index 157e06e..fb10fc3 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -10784,8 +10784,6 @@ parseit:
 	    }
 
 	    if (!SIZE_ONLY) {
-		const char *what = NULL;
-		char yesno = 0;
 
 		/* Possible truncation here but in some 64-bit environments
 		 * the compiler gets heartburn about switch on 64-bit values.
@@ -10994,10 +10992,6 @@ parseit:
 		    vFAIL("Invalid [::] class");
 		    break;
 		}
-		if (what && ! (AT_LEAST_ASCII_RESTRICTED)) {
-		    /* Strings such as "+utf8::isWord\n" */
-		    Perl_sv_catpvf(aTHX_ listsv, "%cutf8::%s\n", yesno, what);
-		}
 
 		continue;
 	    }