This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Script runs: was swallowing next char in pattern
[perl5.git] / regcomp.c
index 116ad96..376b697 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -10848,8 +10848,6 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth)
                     return NULL;
                 }
 
                     return NULL;
                 }
 
-                nextchar(pRExC_state);
-
                 return ret;
             }
         }
                 return ret;
             }
         }