This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Rmv #if 0 bitrotted code
authorKarl Williamson <khw@cpan.org>
Fri, 24 Apr 2020 14:22:25 +0000 (08:22 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 12 Oct 2020 15:45:47 +0000 (09:45 -0600)
This code has been #ifdef'd out for 20 years, and shows bit rot.  It was
kept around in case there was a problem with the replacement for it, but
that hasn't happened and is very unlikely to happen; in the meantime
this is a visual distraction to the code flow.

regcomp.c

index 1912a37..5d78f60 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -12812,21 +12812,6 @@ S_regpiece(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
 
     goto nest_check;
 
 
     goto nest_check;
 
-#if 0                          /* Now runtime fix should be reliable. */
-
-    /* if this is reinstated, don't forget to put this back into perldiag:
-
-           =item Regexp *+ operand could be empty at {#} in regex m/%s/
-
-          (F) The part of the regexp subject to either the * or + quantifier
-           could match an empty string. The {#} shows in the regular
-           expression about where the problem was discovered.
-
-    */
-
-    if (!(flags&HASWIDTH) && op != '?')
-      vFAIL("Regexp *+ operand could be empty");
-#endif
   nest_check:
 
     if (*RExC_parse == '?') {
   nest_check:
 
     if (*RExC_parse == '?') {